/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / NoteBooks / time-cache-103-hc-demo / TimeCache™ Demo

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 54 69 6d 65 43 61 | 63 68 65 aa 20 44 65 6d |..TimeCa|che. Dem|
|00000010| 6f 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |o.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 02 13 40 00 | 01 ee d5 a7 ef 95 b8 ac |......@.|........|
|00000060| 0b a5 38 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..8.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 9c 1a 00 00 |........|........|
|00000080| 00 00 72 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..r.STAK|........|
|00000090| 00 00 00 0a 00 02 13 40 | 00 00 72 00 00 00 00 00 |.......@|..r.....|
|000000a0| 00 00 00 00 00 00 00 05 | 00 00 0a b8 00 00 00 05 |........|........|
|000000b0| 00 00 0b 70 00 00 1f 9e | 00 00 00 00 00 00 00 00 |...p....|........|
|000000c0| 00 00 10 45 d0 33 db 46 | 00 04 00 00 1c 00 00 00 |...E.3.F|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 20 80 00 | 02 20 80 00 02 20 80 00 |..... ..|. ... ..|
|000000f0| 01 a1 23 f1 00 00 00 00 | 00 3b 00 30 01 91 02 30 |..#.....|.;.0...0|
|00000100| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d a9 00 00 0c d1 | 01 56 02 00 00 00 00 00 |........|.V......|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 20 20 54 49 4d 45 | 43 41 43 48 45 aa 20 44 |--  TIME|CACHE. D|
|00000690| 45 4d 4f 0d 2d 2d 20 20 | 43 6f 70 79 72 69 67 68 |EMO.--  |Copyrigh|
|000006a0| 74 20 31 39 39 35 2c 20 | 54 68 65 20 50 61 6e 64 |t 1995, |The Pand|
|000006b0| 61 57 61 72 65 aa 20 43 | 6f 6d 70 61 6e 79 0d 0d |aWare. C|ompany..|
|000006c0| 6f 6e 20 73 68 6f 77 54 | 4b 4e 61 76 0d 67 6c 6f |on showT|KNav.glo|
|000006d0| 62 61 6c 20 74 6b 50 72 | 65 66 73 2c 70 61 6c 48 |bal tkPr|efs,palH|
|000006e0| 69 0d 69 66 20 74 68 65 | 72 65 20 69 73 20 6e 6f |i.if the|re is no|
|000006f0| 74 20 61 20 77 69 6e 64 | 6f 77 20 22 73 65 63 74 |t a wind|ow "sect|
|00000700| 4e 61 76 22 0d 74 68 65 | 6e 20 70 61 6c 65 74 74 |Nav".the|n palett|
|00000710| 65 20 22 73 65 63 74 4e | 61 76 22 2c 74 6b 4e 61 |e "sectN|av",tkNa|
|00000720| 76 4c 6f 63 28 29 0d 73 | 65 74 20 74 68 65 20 68 |vLoc().s|et the h|
|00000730| 69 6c 69 74 65 64 42 75 | 74 74 6f 6e 20 6f 66 20 |ilitedBu|tton of |
|00000740| 77 69 6e 64 6f 77 20 22 | 73 65 63 74 4e 61 76 22 |window "|sectNav"|
|00000750| 20 74 6f 20 70 61 6c 48 | 69 0d 70 75 74 20 22 48 | to palH|i.put "H|
|00000760| 69 64 65 20 4e 61 76 69 | 67 61 74 6f 72 22 20 69 |ide Navi|gator" i|
|00000770| 6e 74 6f 20 6d 65 6e 75 | 49 74 65 6d 20 31 32 20 |nto menu|Item 12 |
|00000780| 6f 66 20 6d 65 6e 75 20 | 47 6f 0d 70 75 74 20 22 |of menu |Go.put "|
|00000790| 48 69 64 65 22 20 69 6e | 74 6f 20 6c 69 6e 65 20 |Hide" in|to line |
|000007a0| 32 32 20 6f 66 20 74 6b | 50 72 65 66 73 0d 65 6e |22 of tk|Prefs.en|
|000007b0| 64 20 73 68 6f 77 54 4b | 4e 61 76 0d 0d 6f 6e 20 |d showTK|Nav..on |
|000007c0| 6f 70 65 6e 53 74 61 63 | 6b 0d 67 6c 6f 62 61 6c |openStac|k.global|
|000007d0| 20 7a 2c 74 6b 50 72 65 | 66 73 2c 70 61 6c 48 69 | z,tkPre|fs,palHi|
|000007e0| 0d 73 65 74 20 74 68 65 | 20 63 61 6e 74 61 62 6f |.set the| cantabo|
|000007f0| 72 74 20 6f 66 20 74 68 | 69 73 20 73 74 61 63 6b |rt of th|is stack|
|00000800| 20 74 6f 20 74 72 75 65 | 0d 6c 6f 63 6b 20 73 63 | to true|.lock sc|
|00000810| 72 65 65 6e 0d 69 66 20 | 63 68 61 72 20 31 20 6f |reen.if |char 1 o|
|00000820| 66 20 74 68 65 20 76 65 | 72 73 69 6f 6e 20 3c 20 |f the ve|rsion < |
|00000830| 32 20 74 68 65 6e 0d 61 | 6e 73 77 65 72 20 22 53 |2 then.a|nswer "S|
|00000840| 6f 72 72 79 2e 20 54 69 | 6d 65 43 61 63 68 65 20 |orry. Ti|meCache |
|00000850| 72 65 71 75 69 72 65 73 | 20 48 79 70 65 72 43 61 |requires| HyperCa|
|00000860| 72 64 20 76 65 72 73 69 | 6f 6e 20 32 2e 30 20 6f |rd versi|on 2.0 o|
|00000870| 72 20 68 69 67 68 65 72 | 2e 22 0d 67 6f 20 68 6f |r higher|.".go ho|
|00000880| 6d 65 0d 65 6e 64 20 69 | 66 0d 69 66 20 66 6c 64 |me.end i|f.if fld|
|00000890| 20 69 64 20 31 35 20 6f | 66 20 63 64 20 31 20 3d | id 15 o|f cd 1 =|
|000008a0| 20 22 22 20 74 68 65 6e | 20 70 75 74 20 74 68 65 | "" then| put the|
|000008b0| 20 6c 6f 6e 67 20 64 61 | 74 65 20 69 6e 74 6f 20 | long da|te into |
|000008c0| 66 6c 64 20 69 64 20 31 | 35 20 6f 66 20 63 64 20 |fld id 1|5 of cd |
|000008d0| 31 0d 69 66 20 7a 20 3d | 20 65 6d 70 74 79 20 74 |1.if z =| empty t|
|000008e0| 68 65 6e 20 70 75 74 20 | 31 20 2b 20 28 74 68 65 |hen put |1 + (the|
|000008f0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|00000900| 20 69 6e 20 66 6c 64 20 | 69 64 20 31 20 6f 66 20 | in fld |id 1 of |
|00000910| 63 64 20 31 29 20 69 6e | 74 6f 20 7a 0d 70 75 74 |cd 1) in|to z.put|
|00000920| 20 66 6c 64 20 69 64 20 | 34 38 20 6f 66 20 63 64 | fld id |48 of cd|
|00000930| 20 31 20 69 6e 74 6f 20 | 74 6b 50 72 65 66 73 0d | 1 into |tkPrefs.|
|00000940| 73 74 61 72 74 53 74 75 | 66 66 0d 69 66 20 6c 69 |startStu|ff.if li|
|00000950| 6e 65 20 32 34 20 6f 66 | 20 74 6b 50 72 65 66 73 |ne 24 of| tkPrefs|
|00000960| 20 3d 20 22 22 20 74 68 | 65 6e 20 70 75 74 20 22 | = "" th|en put "|
|00000970| 24 2c 35 22 20 69 6e 74 | 6f 20 6c 69 6e 65 20 32 |$,5" int|o line 2|
|00000980| 34 20 6f 66 20 74 6b 50 | 72 65 66 73 0d 64 69 73 |4 of tkP|refs.dis|
|00000990| 61 62 6c 65 20 6d 65 6e | 75 49 74 65 6d 20 34 20 |able men|uItem 4 |
|000009a0| 6f 66 20 6d 65 6e 75 20 | 46 69 6c 65 0d 64 69 73 |of menu |File.dis|
|000009b0| 61 62 6c 65 20 6d 65 6e | 75 49 74 65 6d 20 37 20 |able men|uItem 7 |
|000009c0| 6f 66 20 6d 65 6e 75 20 | 47 6f 0d 69 66 20 74 68 |of menu |Go.if th|
|000009d0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|000009e0| 73 20 69 6e 20 74 68 65 | 20 73 74 61 63 6b 73 20 |s in the| stacks |
|000009f0| 3e 20 31 20 74 68 65 6e | 20 65 6e 61 62 6c 65 20 |> 1 then| enable |
|00000a00| 6d 65 6e 75 49 74 65 6d | 20 32 20 6f 66 20 6d 65 |menuItem| 2 of me|
|00000a10| 6e 75 20 22 46 69 6c 65 | 22 0d 65 6c 73 65 20 64 |nu "File|".else d|
|00000a20| 69 73 61 62 6c 65 20 6d | 65 6e 75 49 74 65 6d 20 |isable m|enuItem |
|00000a30| 32 20 6f 66 20 6d 65 6e | 75 20 46 69 6c 65 0d 75 |2 of men|u File.u|
|00000a40| 6e 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 65 6e 64 |nlock sc|reen.end|
|00000a50| 20 6f 70 65 6e 53 74 61 | 63 6b 0d 0d 0d 6f 6e 20 | openSta|ck...on |
|00000a60| 72 65 73 75 6d 65 53 74 | 61 63 6b 0d 67 6c 6f 62 |resumeSt|ack.glob|
|00000a70| 61 6c 20 62 67 69 64 2c | 74 6b 50 72 65 66 73 2c |al bgid,|tkPrefs,|
|00000a80| 70 61 6c 48 69 0d 73 65 | 74 20 63 75 72 73 6f 72 |palHi.se|t cursor|
|00000a90| 20 74 6f 20 77 61 74 63 | 68 0d 73 74 61 72 74 53 | to watc|h.startS|
|00000aa0| 74 75 66 66 0d 69 66 20 | 74 68 65 72 65 20 69 73 |tuff.if |there is|
|00000ab0| 20 61 20 77 69 6e 64 6f | 77 20 22 73 65 63 74 4e | a windo|w "sectN|
|00000ac0| 61 76 22 0d 74 68 65 6e | 20 73 65 74 20 74 68 65 |av".then| set the|
|00000ad0| 20 68 69 6c 69 74 65 64 | 42 75 74 74 6f 6e 20 6f | hilited|Button o|
|00000ae0| 66 20 77 69 6e 64 6f 77 | 20 22 73 65 63 74 4e 61 |f window| "sectNa|
|00000af0| 76 22 20 74 6f 20 70 61 | 6c 48 69 0d 73 65 74 20 |v" to pa|lHi.set |
|00000b00| 74 68 65 20 63 61 6e 74 | 61 62 6f 72 74 20 6f 66 |the cant|abort of|
|00000b10| 20 74 68 69 73 20 73 74 | 61 63 6b 20 74 6f 20 74 | this st|ack to t|
|00000b20| 72 75 65 0d 70 75 74 20 | 66 6c 64 20 69 64 20 34 |rue.put |fld id 4|
|00000b30| 38 20 6f 66 20 63 64 20 | 31 20 69 6e 74 6f 20 74 |8 of cd |1 into t|
|00000b40| 6b 50 72 65 66 73 0d 69 | 66 20 62 67 69 64 20 ad |kPrefs.i|f bgid .|
|00000b50| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 73 65 6e 64 | empty t|hen send|
|00000b60| 20 6f 70 65 6e 42 61 63 | 6b 67 72 6f 75 6e 64 20 | openBac|kground |
|00000b70| 74 6f 20 62 67 20 69 64 | 20 62 67 69 64 0d 64 69 |to bg id| bgid.di|
|00000b80| 73 61 62 6c 65 20 6d 65 | 6e 75 49 74 65 6d 20 35 |sable me|nuItem 5|
|00000b90| 20 6f 66 20 6d 65 6e 75 | 20 46 69 6c 65 0d 69 66 | of menu| File.if|
|00000ba0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 6c | the num|ber of l|
|00000bb0| 69 6e 65 73 20 69 6e 20 | 74 68 65 20 73 74 61 63 |ines in |the stac|
|00000bc0| 6b 73 20 3e 20 31 20 74 | 68 65 6e 20 65 6e 61 62 |ks > 1 t|hen enab|
|00000bd0| 6c 65 20 6d 65 6e 75 49 | 74 65 6d 20 32 20 6f 66 |le menuI|tem 2 of|
|00000be0| 20 6d 65 6e 75 20 22 46 | 69 6c 65 22 0d 65 6c 73 | menu "F|ile".els|
|00000bf0| 65 20 64 69 73 61 62 6c | 65 20 6d 65 6e 75 49 74 |e disabl|e menuIt|
|00000c00| 65 6d 20 32 20 6f 66 20 | 6d 65 6e 75 20 22 46 69 |em 2 of |menu "Fi|
|00000c10| 6c 65 22 0d 65 6e 64 20 | 72 65 73 75 6d 65 53 74 |le".end |resumeSt|
|00000c20| 61 63 6b 0d 0d 6f 6e 20 | 73 74 61 72 74 53 74 75 |ack..on |startStu|
|00000c30| 66 66 0d 67 6c 6f 62 61 | 6c 20 62 67 69 64 2c 74 |ff.globa|l bgid,t|
|00000c40| 6b 50 72 65 66 73 2c 73 | 74 61 72 74 4c 65 76 65 |kPrefs,s|tartLeve|
|00000c50| 6c 2c 6d 73 67 4c 6f 63 | 0d 6c 6f 63 6b 20 73 63 |l,msgLoc|.lock sc|
|00000c60| 72 65 65 6e 0d 70 75 74 | 20 74 68 65 20 75 73 65 |reen.put| the use|
|00000c70| 72 4c 65 76 65 6c 20 69 | 6e 74 6f 20 73 74 61 72 |rLevel i|nto star|
|00000c80| 74 4c 65 76 65 6c 0d 70 | 75 74 20 66 6c 64 20 69 |tLevel.p|ut fld i|
|00000c90| 64 20 34 38 20 6f 66 20 | 63 64 20 31 20 69 6e 74 |d 48 of |cd 1 int|
|00000ca0| 6f 20 74 6b 50 72 65 66 | 73 0d 70 75 74 20 6c 6f |o tkPref|s.put lo|
|00000cb0| 63 20 6f 66 20 77 69 6e | 64 6f 77 20 22 6d 65 73 |c of win|dow "mes|
|00000cc0| 73 61 67 65 22 20 69 6e | 74 6f 20 6d 73 67 4c 6f |sage" in|to msgLo|
|00000cd0| 63 0d 69 66 20 74 68 65 | 20 6f 70 74 69 6f 6e 4b |c.if the| optionK|
|00000ce0| 65 79 20 ad 20 64 6f 77 | 6e 20 74 68 65 6e 20 73 |ey . dow|n then s|
|00000cf0| 65 74 20 6c 6f 63 20 6f | 66 20 77 69 6e 64 6f 77 |et loc o|f window|
|00000d00| 20 22 6d 65 73 73 61 67 | 65 22 20 74 6f 20 35 30 | "messag|e" to 50|
|00000d10| 30 30 2c 35 30 30 30 0d | 63 68 6f 6f 73 65 20 62 |00,5000.|choose b|
|00000d20| 72 6f 77 73 65 20 74 6f | 6f 6c 0d 68 69 64 65 20 |rowse to|ol.hide |
|00000d30| 73 63 72 6f 6c 6c 20 77 | 69 6e 64 6f 77 0d 68 69 |scroll w|indow.hi|
|00000d40| 64 65 20 70 61 74 74 65 | 72 6e 20 77 69 6e 64 6f |de patte|rn windo|
|00000d50| 77 0d 68 69 64 65 20 74 | 6f 6f 6c 20 77 69 6e 64 |w.hide t|ool wind|
|00000d60| 6f 77 0d 73 65 74 20 74 | 68 65 20 63 61 6e 74 50 |ow.set t|he cantP|
|00000d70| 65 65 6b 20 6f 66 20 74 | 68 69 73 20 73 74 61 63 |eek of t|his stac|
|00000d80| 6b 20 74 6f 20 74 72 75 | 65 0d 73 65 74 20 74 68 |k to tru|e.set th|
|00000d90| 65 20 75 73 65 72 4c 65 | 76 65 6c 20 74 6f 20 33 |e userLe|vel to 3|
|00000da0| 0d 69 66 20 74 68 65 72 | 65 20 69 73 20 61 20 6d |.if ther|e is a m|
|00000db0| 65 6e 75 20 22 4f 62 6a | 65 63 74 73 22 20 74 68 |enu "Obj|ects" th|
|00000dc0| 65 6e 20 64 65 6c 65 74 | 65 20 6d 65 6e 75 20 22 |en delet|e menu "|
|00000dd0| 4f 62 6a 65 63 74 73 22 | 0d 69 66 20 74 68 65 72 |Objects"|.if ther|
|00000de0| 65 20 69 73 20 61 20 6d | 65 6e 75 20 22 45 64 69 |e is a m|enu "Edi|
|00000df0| 74 22 20 74 68 65 6e 20 | 64 65 6c 65 74 65 20 6d |t" then |delete m|
|00000e00| 65 6e 75 20 22 45 64 69 | 74 22 0d 69 66 20 74 68 |enu "Edi|t".if th|
|00000e10| 65 72 65 20 69 73 20 61 | 20 6d 65 6e 75 20 22 54 |ere is a| menu "T|
|00000e20| 6f 6f 6c 73 22 20 74 68 | 65 6e 20 64 65 6c 65 74 |ools" th|en delet|
|00000e30| 65 20 6d 65 6e 75 20 22 | 54 6f 6f 6c 73 22 0d 69 |e menu "|Tools".i|
|00000e40| 66 20 74 68 65 72 65 20 | 69 73 20 61 20 6d 65 6e |f there |is a men|
|00000e50| 75 20 22 53 74 79 6c 65 | 22 20 74 68 65 6e 20 64 |u "Style|" then d|
|00000e60| 65 6c 65 74 65 20 6d 65 | 6e 75 20 22 53 74 79 6c |elete me|nu "Styl|
|00000e70| 65 22 0d 69 66 20 74 68 | 65 72 65 20 69 73 20 61 |e".if th|ere is a|
|00000e80| 20 6d 65 6e 75 20 22 46 | 6f 6e 74 22 20 74 68 65 | menu "F|ont" the|
|00000e90| 6e 20 64 65 6c 65 74 65 | 20 6d 65 6e 75 20 22 46 |n delete| menu "F|
|00000ea0| 6f 6e 74 22 0d 69 66 20 | 74 68 65 72 65 20 69 73 |ont".if |there is|
|00000eb0| 20 61 20 6d 65 6e 75 20 | 22 47 6f 22 20 74 68 65 | a menu |"Go" the|
|00000ec0| 6e 20 64 65 6c 65 74 65 | 20 6d 65 6e 75 20 22 47 |n delete| menu "G|
|00000ed0| 6f 22 0d 69 66 20 74 68 | 65 72 65 20 69 73 20 61 |o".if th|ere is a|
|00000ee0| 20 6d 65 6e 75 20 22 46 | 69 6c 65 22 20 74 68 65 | menu "F|ile" the|
|00000ef0| 6e 20 64 65 6c 65 74 65 | 20 6d 65 6e 75 20 22 46 |n delete| menu "F|
|00000f00| 69 6c 65 22 0d 73 68 6f | 77 20 6d 65 6e 75 42 61 |ile".sho|w menuBa|
|00000f10| 72 0d 74 6b 4d 65 6e 75 | 73 20 62 75 69 6c 64 0d |r.tkMenu|s build.|
|00000f20| 70 75 74 20 22 41 62 6f | 75 74 20 54 69 6d 65 43 |put "Abo|ut TimeC|
|00000f30| 61 63 68 65 22 20 69 6e | 74 6f 20 6d 65 6e 75 49 |ache" in|to menuI|
|00000f40| 74 65 6d 20 31 20 6f 66 | 20 6d 65 6e 75 20 41 70 |tem 1 of| menu Ap|
|00000f50| 70 6c 65 0d 70 75 74 20 | 22 2d 2c 22 20 26 20 6c |ple.put |"-," & l|
|00000f60| 69 6e 65 20 32 32 20 6f | 66 20 74 6b 50 72 65 66 |ine 22 o|f tkPref|
|00000f70| 73 20 26 26 20 22 4e 61 | 76 69 67 61 74 6f 72 22 |s && "Na|vigator"|
|00000f80| 20 61 66 74 65 72 20 6d | 65 6e 75 20 47 6f 0d 69 | after m|enu Go.i|
|00000f90| 66 20 6c 69 6e 65 20 32 | 32 20 6f 66 20 74 6b 50 |f line 2|2 of tkP|
|00000fa0| 72 65 66 73 20 3d 20 22 | 22 20 74 68 65 6e 20 70 |refs = "|" then p|
|00000fb0| 75 74 20 22 48 69 64 65 | 22 20 69 6e 74 6f 20 6c |ut "Hide|" into l|
|00000fc0| 69 6e 65 20 32 32 20 6f | 66 20 74 6b 50 72 65 66 |ine 22 o|f tkPref|
|00000fd0| 73 0d 69 66 20 6c 69 6e | 65 20 32 32 20 6f 66 20 |s.if lin|e 22 of |
|00000fe0| 74 6b 50 72 65 66 73 20 | 3d 20 22 48 69 64 65 22 |tkPrefs |= "Hide"|
|00000ff0| 20 74 68 65 6e 20 73 68 | 6f 77 54 4b 4e 61 76 0d | then sh|owTKNav.|
|00001000| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 65 6e |unlock s|creen.en|
|00001010| 64 20 73 74 61 72 74 53 | 74 75 66 66 0d 0d 6f 6e |d startS|tuff..on|
|00001020| 20 73 75 73 70 65 6e 64 | 53 74 61 63 6b 0d 63 6c | suspend|Stack.cl|
|00001030| 6f 73 65 53 74 75 66 66 | 0d 65 6e 64 20 73 75 73 |oseStuff|.end sus|
|00001040| 70 65 6e 64 53 74 61 63 | 6b 0d 0d 6f 6e 20 63 6c |pendStac|k..on cl|
|00001050| 6f 73 65 53 74 75 66 66 | 0d 67 6c 6f 62 61 6c 20 |oseStuff|.global |
|00001060| 73 74 61 72 74 4c 65 76 | 65 6c 2c 74 6b 50 72 65 |startLev|el,tkPre|
|00001070| 66 73 2c 70 61 73 74 65 | 4d 6f 64 65 2c 62 67 69 |fs,paste|Mode,bgi|
|00001080| 64 2c 70 61 6c 48 69 2c | 6d 73 67 4c 6f 63 0d 73 |d,palHi,|msgLoc.s|
|00001090| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 77 61 74 |et curso|r to wat|
|000010a0| 63 68 0d 69 66 20 70 61 | 73 74 65 4d 6f 64 65 20 |ch.if pa|steMode |
|000010b0| 3d 20 74 72 75 65 20 74 | 68 65 6e 20 72 65 73 74 |= true t|hen rest|
|000010c0| 6f 72 65 4d 6f 76 65 0d | 69 66 20 74 68 65 72 65 |oreMove.|if there|
|000010d0| 20 69 73 20 61 20 77 69 | 6e 64 6f 77 20 22 73 74 | is a wi|ndow "st|
|000010e0| 61 72 74 4d 6f 76 65 22 | 20 74 68 65 6e 20 63 6c |artMove"| then cl|
|000010f0| 6f 73 65 20 77 69 6e 64 | 6f 77 20 22 73 74 61 72 |ose wind|ow "star|
|00001100| 74 4d 6f 76 65 22 0d 69 | 66 20 74 68 65 72 65 20 |tMove".i|f there |
|00001110| 69 73 20 61 20 77 69 6e | 64 6f 77 20 22 64 6f 4d |is a win|dow "doM|
|00001120| 6f 76 65 22 20 74 68 65 | 6e 20 63 6c 6f 73 65 20 |ove" the|n close |
|00001130| 77 69 6e 64 6f 77 20 22 | 64 6f 4d 6f 76 65 22 0d |window "|doMove".|
|00001140| 70 75 74 20 6c 69 6e 65 | 20 32 32 20 6f 66 20 74 |put line| 22 of t|
|00001150| 6b 50 72 65 66 73 20 69 | 6e 74 6f 20 6e 61 76 42 |kPrefs i|nto navB|
|00001160| 6f 6f 6c 0d 69 66 20 74 | 68 65 72 65 20 69 73 20 |ool.if t|here is |
|00001170| 61 20 77 69 6e 64 6f 77 | 20 22 73 65 63 74 4e 61 |a window| "sectNa|
|00001180| 76 22 20 74 68 65 6e 20 | 63 6c 6f 73 65 20 77 69 |v" then |close wi|
|00001190| 6e 64 6f 77 20 22 73 65 | 63 74 4e 61 76 22 0d 70 |ndow "se|ctNav".p|
|000011a0| 75 74 20 6e 61 76 42 6f | 6f 6c 20 69 6e 74 6f 20 |ut navBo|ol into |
|000011b0| 6c 69 6e 65 20 32 32 20 | 6f 66 20 74 6b 50 72 65 |line 22 |of tkPre|
|000011c0| 66 73 0d 70 72 65 66 53 | 65 74 0d 69 66 20 74 68 |fs.prefS|et.if th|
|000011d0| 65 72 65 20 69 73 20 61 | 20 6d 65 6e 75 20 54 69 |ere is a| menu Ti|
|000011e0| 6d 65 43 61 63 68 65 20 | 74 68 65 6e 20 54 4b 4d |meCache |then TKM|
|000011f0| 65 6e 75 73 20 64 65 6c | 65 74 65 0d 72 65 73 65 |enus del|ete.rese|
|00001200| 74 20 6d 65 6e 75 42 61 | 72 0d 73 65 74 20 74 68 |t menuBa|r.set th|
|00001210| 65 20 75 73 65 72 4c 65 | 76 65 6c 20 74 6f 20 73 |e userLe|vel to s|
|00001220| 74 61 72 74 4c 65 76 65 | 6c 0d 73 65 74 20 74 68 |tartLeve|l.set th|
|00001230| 65 20 6c 6f 63 20 6f 66 | 20 77 69 6e 64 6f 77 20 |e loc of| window |
|00001240| 22 4d 65 73 73 61 67 65 | 22 20 74 6f 20 6d 73 67 |"Message|" to msg|
|00001250| 4c 6f 63 0d 65 6e 64 20 | 63 6c 6f 73 65 53 74 75 |Loc.end |closeStu|
|00001260| 66 66 0d 0d 6f 6e 20 63 | 6c 6f 73 65 53 74 61 63 |ff..on c|loseStac|
|00001270| 6b 0d 67 6c 6f 62 61 6c | 20 62 67 69 64 2c 70 61 |k.global| bgid,pa|
|00001280| 6c 48 69 0d 69 66 20 66 | 72 65 65 53 69 7a 65 20 |lHi.if f|reeSize |
|00001290| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 3e 20 |of this |stack > |
|000012a0| 31 32 30 30 30 20 74 68 | 65 6e 20 64 6f 4d 65 6e |12000 th|en doMen|
|000012b0| 75 20 22 43 6f 6d 70 61 | 63 74 20 53 74 61 63 6b |u "Compa|ct Stack|
|000012c0| 22 0d 63 6c 6f 73 65 53 | 74 75 66 66 0d 69 66 20 |".closeS|tuff.if |
|000012d0| 74 68 65 20 76 69 73 69 | 62 6c 65 20 6f 66 20 66 |the visi|ble of f|
|000012e0| 6c 64 20 69 64 20 35 38 | 20 6f 66 20 63 64 20 31 |ld id 58| of cd 1|
|000012f0| 20 3d 20 74 72 75 65 20 | 74 68 65 6e 20 68 69 64 | = true |then hid|
|00001300| 65 48 65 6c 70 0d 70 75 | 74 20 65 6d 70 74 79 20 |eHelp.pu|t empty |
|00001310| 69 6e 74 6f 20 62 67 69 | 64 0d 70 75 74 20 22 22 |into bgi|d.put ""|
|00001320| 20 69 6e 74 6f 20 70 61 | 6c 48 69 0d 65 6e 64 20 | into pa|lHi.end |
|00001330| 63 6c 6f 73 65 53 74 61 | 63 6b 0d 0d 6f 6e 20 64 |closeSta|ck..on d|
|00001340| 65 6c 43 61 72 64 0d 67 | 6c 6f 62 61 6c 20 63 61 |elCard.g|lobal ca|
|00001350| 72 64 4e 75 6d 2c 63 75 | 74 4c 69 6e 65 2c 66 72 |rdNum,cu|tLine,fr|
|00001360| 6f 6d 46 69 65 6c 64 2c | 74 72 75 6e 63 46 69 65 |omField,|truncFie|
|00001370| 6c 64 0d 69 66 20 74 68 | 65 20 6e 75 6d 62 65 72 |ld.if th|e number|
|00001380| 20 6f 66 20 63 64 73 20 | 69 6e 20 74 68 69 73 20 | of cds |in this |
|00001390| 62 67 20 3c 32 20 6f 72 | 20 74 68 65 20 63 61 6e |bg <2 or| the can|
|000013a0| 74 64 65 6c 65 74 65 20 | 6f 66 20 74 68 69 73 20 |tdelete |of this |
|000013b0| 63 64 20 3d 20 74 72 75 | 65 20 74 68 65 6e 0d 62 |cd = tru|e then.b|
|000013c0| 65 65 70 20 6f 6e 65 0d | 73 68 6f 77 44 69 61 6c |eep one.|showDial|
|000013d0| 6f 67 20 32 2c 32 39 35 | 31 2c 22 53 6f 72 72 79 |og 2,295|1,"Sorry|
|000013e0| 2c 20 79 6f 75 20 63 61 | 6e d5 74 20 64 65 6c 65 |, you ca|n.t dele|
|000013f0| 74 65 20 74 68 69 73 20 | 63 61 72 64 21 22 2c 22 |te this |card!","|
|00001400| 22 2c 22 22 0d 65 78 69 | 74 20 64 65 6c 43 61 72 |","".exi|t delCar|
|00001410| 64 0d 65 6e 64 20 69 66 | 0d 62 65 65 70 0d 73 68 |d.end if|.beep.sh|
|00001420| 6f 77 44 69 61 6c 6f 67 | 20 31 2c 31 36 30 35 30 |owDialog| 1,16050|
|00001430| 2c 22 59 6f 75 20 64 6f | 6e d5 74 20 52 45 41 4c |,"You do|n.t REAL|
|00001440| 4c 59 20 77 61 6e 74 20 | 74 6f 20 64 65 73 74 72 |LY want |to destr|
|00001450| 6f 79 20 61 6c 6c 20 74 | 68 69 73 20 64 61 74 61 |oy all t|his data|
|00001460| 2c 20 44 4f 20 59 4f 55 | 3f 22 2c 54 52 55 45 0d |, DO YOU|?",TRUE.|
|00001470| 69 66 20 74 68 65 20 72 | 65 73 75 6c 74 20 3d 20 |if the r|esult = |
|00001480| 31 20 74 68 65 6e 20 65 | 78 69 74 20 64 65 6c 43 |1 then e|xit delC|
|00001490| 61 72 64 0d 65 6c 73 65 | 0d 73 65 74 20 74 68 65 |ard.else|.set the|
|000014a0| 20 63 75 72 73 6f 72 20 | 74 6f 20 77 61 74 63 68 | cursor |to watch|
|000014b0| 0d 73 65 74 20 6c 6f 63 | 6b 53 63 72 65 65 6e 20 |.set loc|kScreen |
|000014c0| 74 6f 20 74 72 75 65 0d | 70 75 74 20 74 68 65 20 |to true.|put the |
|000014d0| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 68 |short na|me of th|
|000014e0| 69 73 20 63 64 20 69 6e | 74 6f 20 63 61 72 64 4e |is cd in|to cardN|
|000014f0| 61 6d 65 0d 69 66 20 77 | 6f 72 64 20 31 20 6f 66 |ame.if w|ord 1 of|
|00001500| 20 63 61 72 64 4e 61 6d | 65 20 3d 20 22 41 72 63 | cardNam|e = "Arc|
|00001510| 22 20 74 68 65 6e 0d 70 | 75 74 20 35 32 20 69 6e |" then.p|ut 52 in|
|00001520| 74 6f 20 66 72 6f 6d 46 | 69 65 6c 64 0d 70 75 74 |to fromF|ield.put|
|00001530| 20 34 37 20 69 6e 74 6f | 20 74 72 75 6e 63 46 69 | 47 into| truncFi|
|00001540| 65 6c 64 0d 65 6c 73 65 | 0d 70 75 74 20 31 37 20 |eld.else|.put 17 |
|00001550| 69 6e 74 6f 20 66 72 6f | 6d 46 69 65 6c 64 0d 70 |into fro|mField.p|
|00001560| 75 74 20 35 30 20 69 6e | 74 6f 20 74 72 75 6e 63 |ut 50 in|to trunc|
|00001570| 46 69 65 6c 64 0d 65 6e | 64 20 69 66 0d 67 65 74 |Field.en|d if.get|
|00001580| 20 69 74 65 6d 46 69 6e | 64 28 63 61 72 64 4e 61 | itemFin|d(cardNa|
|00001590| 6d 65 2c 66 6c 64 20 69 | 64 20 66 72 6f 6d 46 69 |me,fld i|d fromFi|
|000015a0| 65 6c 64 20 6f 66 20 63 | 64 20 31 2c 34 29 0d 69 |eld of c|d 1,4).i|
|000015b0| 66 20 69 74 20 ad 20 30 | 20 74 68 65 6e 0d 64 65 |f it . 0| then.de|
|000015c0| 6c 65 74 65 20 6c 69 6e | 65 20 69 74 20 6f 66 20 |lete lin|e it of |
|000015d0| 66 6c 64 20 69 64 20 66 | 72 6f 6d 46 69 65 6c 64 |fld id f|romField|
|000015e0| 20 6f 66 20 63 64 20 31 | 0d 64 65 6c 65 74 65 20 | of cd 1|.delete |
|000015f0| 6c 69 6e 65 20 69 74 20 | 6f 66 20 66 6c 64 20 69 |line it |of fld i|
|00001600| 64 20 74 72 75 6e 63 46 | 69 65 6c 64 20 6f 66 20 |d truncF|ield of |
|00001610| 63 64 20 31 0d 65 6e 64 | 20 69 66 0d 67 6f 20 63 |cd 1.end| if.go c|
|00001620| 64 20 63 61 72 64 4e 61 | 6d 65 0d 73 65 74 20 74 |d cardNa|me.set t|
|00001630| 68 65 20 75 73 65 72 4c | 65 76 65 6c 20 74 6f 20 |he userL|evel to |
|00001640| 35 0d 73 65 74 20 6c 6f | 63 6b 4d 65 73 73 61 67 |5.set lo|ckMessag|
|00001650| 65 73 20 74 6f 20 74 72 | 75 65 0d 64 6f 4d 65 6e |es to tr|ue.doMen|
|00001660| 75 20 22 43 75 74 20 43 | 61 72 64 22 0d 73 65 74 |u "Cut C|ard".set|
|00001670| 20 6c 6f 63 6b 4d 65 73 | 73 61 67 65 73 20 74 6f | lockMes|sages to|
|00001680| 20 66 61 6c 73 65 0d 73 | 65 74 20 74 68 65 20 75 | false.s|et the u|
|00001690| 73 65 72 4c 65 76 65 6c | 20 74 6f 20 33 0d 67 6f |serLevel| to 3.go|
|000016a0| 20 63 64 20 31 0d 73 65 | 6e 64 20 6f 70 65 6e 42 | cd 1.se|nd openB|
|000016b0| 61 63 6b 67 72 6f 75 6e | 64 20 74 6f 20 62 67 20 |ackgroun|d to bg |
|000016c0| 31 0d 73 65 74 20 6c 6f | 63 6b 4d 65 73 73 61 67 |1.set lo|ckMessag|
|000016d0| 65 73 20 74 6f 20 66 61 | 6c 73 65 0d 75 6e 6c 6f |es to fa|lse.unlo|
|000016e0| 63 6b 20 73 63 72 65 65 | 6e 0d 65 6e 64 20 69 66 |ck scree|n.end if|
|000016f0| 0d 65 6e 64 20 64 65 6c | 43 61 72 64 0d 0d 6f 6e |.end del|Card..on|
|00001700| 20 64 6f 4d 65 6e 75 20 | 78 0d 69 66 20 22 51 75 | doMenu |x.if "Qu|
|00001710| 69 74 22 20 69 73 20 69 | 6e 20 78 20 74 68 65 6e |it" is i|n x then|
|00001720| 0d 67 6c 6f 62 61 6c 20 | 74 6b 50 72 65 66 73 0d |.global |tkPrefs.|
|00001730| 69 66 20 28 74 68 65 20 | 76 69 73 69 62 6c 65 20 |if (the |visible |
|00001740| 6f 66 20 62 67 20 62 74 | 6e 20 69 64 20 36 35 20 |of bg bt|n id 65 |
|00001750| 6f 66 20 63 64 20 31 20 | 3d 20 74 72 75 65 20 6f |of cd 1 |= true o|
|00001760| 72 20 74 68 65 20 76 69 | 73 69 62 6c 65 20 6f 66 |r the vi|sible of|
|00001770| c2 0d 62 67 20 62 74 6e | 20 69 64 20 36 36 20 6f |..bg btn| id 66 o|
|00001780| 66 20 63 64 20 31 20 3d | 20 74 72 75 65 29 20 74 |f cd 1 =| true) t|
|00001790| 68 65 6e 0d 73 68 6f 77 | 44 69 61 6c 6f 67 20 31 |hen.show|Dialog 1|
|000017a0| 2c 34 36 39 35 2c 22 59 | 6f 75 d5 72 65 20 73 74 |,4695,"Y|ou.re st|
|000017b0| 69 6c 6c 20 74 69 6d 69 | 6e 67 20 61 20 6a 6f 62 |ill timi|ng a job|
|000017c0| 2e 20 22 26 20 c2 0d 22 | 41 72 65 20 79 6f 75 20 |. "& .."|Are you |
|000017d0| 73 75 72 65 20 79 6f 75 | 20 77 61 6e 74 20 74 6f |sure you| want to|
|000017e0| 20 65 78 69 74 20 54 69 | 6d 65 43 61 63 68 65 3f | exit Ti|meCache?|
|000017f0| 22 2c 54 52 55 45 0d 69 | 66 20 74 68 65 20 72 65 |",TRUE.i|f the re|
|00001800| 73 75 6c 74 20 3d 20 34 | 20 74 68 65 6e 20 65 78 |sult = 4| then ex|
|00001810| 69 74 20 74 6f 20 68 79 | 70 65 72 63 61 72 64 0d |it to hy|percard.|
|00001820| 65 6e 64 20 69 66 0d 70 | 75 74 20 6c 69 6e 65 20 |end if.p|ut line |
|00001830| 32 32 20 6f 66 20 74 6b | 50 72 65 66 73 20 69 6e |22 of tk|Prefs in|
|00001840| 74 6f 20 6e 61 76 42 6f | 6f 6c 0d 69 66 20 6e 61 |to navBo|ol.if na|
|00001850| 76 42 6f 6f 6c 20 3d 20 | 22 48 69 64 65 22 20 74 |vBool = |"Hide" t|
|00001860| 68 65 6e 20 68 69 64 65 | 54 4b 4e 61 76 0d 69 66 |hen hide|TKNav.if|
|00001870| 20 22 54 69 6d 65 43 61 | 63 68 65 22 20 69 73 20 | "TimeCa|che" is |
|00001880| 69 6e 20 78 20 74 68 65 | 6e 20 64 6f 4d 65 6e 75 |in x the|n doMenu|
|00001890| 20 22 51 75 69 74 20 48 | 79 70 65 72 43 61 72 64 | "Quit H|yperCard|
|000018a0| 22 0d 70 75 74 20 6e 61 | 76 42 6f 6f 6c 20 69 6e |".put na|vBool in|
|000018b0| 74 6f 20 6c 69 6e 65 20 | 32 32 20 6f 66 20 74 6b |to line |22 of tk|
|000018c0| 50 72 65 66 73 0d 65 6c | 73 65 20 69 66 20 78 20 |Prefs.el|se if x |
|000018d0| 3d 20 22 44 61 69 6c 79 | 20 4c 6f 67 22 20 74 68 |= "Daily| Log" th|
|000018e0| 65 6e 0d 67 6f 20 63 64 | 20 31 0d 65 78 69 74 20 |en.go cd| 1.exit |
|000018f0| 64 6f 4d 65 6e 75 0d 65 | 6c 73 65 20 69 66 20 78 |doMenu.e|lse if x|
|00001900| 20 3d 20 22 53 68 6f 77 | 20 4e 61 76 69 67 61 74 | = "Show| Navigat|
|00001910| 6f 72 22 20 74 68 65 6e | 0d 73 68 6f 77 54 4b 4e |or" then|.showTKN|
|00001920| 61 76 0d 65 78 69 74 20 | 64 6f 4d 65 6e 75 0d 65 |av.exit |doMenu.e|
|00001930| 6c 73 65 20 69 66 20 78 | 20 3d 20 22 48 69 64 65 |lse if x| = "Hide|
|00001940| 20 4e 61 76 69 67 61 74 | 6f 72 22 20 74 68 65 6e | Navigat|or" then|
|00001950| 0d 68 69 64 65 54 4b 4e | 61 76 0d 65 78 69 74 20 |.hideTKN|av.exit |
|00001960| 64 6f 4d 65 6e 75 0d 65 | 6c 73 65 20 69 66 20 78 |doMenu.e|lse if x|
|00001970| 20 3d 20 22 4a 6f 62 20 | 53 68 65 65 74 73 22 20 | = "Job |Sheets" |
|00001980| 74 68 65 6e 0d 67 6f 20 | 62 67 20 69 64 20 35 34 |then.go |bg id 54|
|00001990| 34 39 0d 65 78 69 74 20 | 64 6f 4d 65 6e 75 0d 65 |49.exit |doMenu.e|
|000019a0| 6c 73 65 20 69 66 20 78 | 20 3d 20 22 41 72 63 68 |lse if x| = "Arch|
|000019b0| 69 76 65 22 20 74 68 65 | 6e 0d 67 6f 20 62 67 20 |ive" the|n.go bg |
|000019c0| 69 64 20 34 37 31 37 0d | 65 78 69 74 20 64 6f 4d |id 4717.|exit doM|
|000019d0| 65 6e 75 0d 65 6c 73 65 | 20 69 66 20 78 20 3d 20 |enu.else| if x = |
|000019e0| 22 54 69 6d 65 73 68 65 | 65 74 73 22 20 74 68 65 |"Timeshe|ets" the|
|000019f0| 6e 0d 67 6f 20 6c 61 73 | 74 20 63 64 0d 65 78 69 |n.go las|t cd.exi|
|00001a00| 74 20 64 6f 4d 65 6e 75 | 0d 65 6c 73 65 20 69 66 |t doMenu|.else if|
|00001a10| 20 78 20 3d 20 22 54 69 | 6d 65 43 61 63 68 65 20 | x = "Ti|meCache |
|00001a20| 48 65 6c 70 22 20 74 68 | 65 6e 20 68 65 6c 70 4d |Help" th|en helpM|
|00001a30| 65 0d 65 6c 73 65 20 69 | 66 20 78 20 3d 20 22 48 |e.else i|f x = "H|
|00001a40| 69 64 65 20 54 69 6d 65 | 43 61 63 68 65 22 20 74 |ide Time|Cache" t|
|00001a50| 68 65 6e 20 68 69 64 65 | 54 4b 0d 65 6c 73 65 20 |hen hide|TK.else |
|00001a60| 69 66 20 78 20 3d 20 22 | 53 75 6d 6d 61 72 79 20 |if x = "|Summary |
|00001a70| 52 65 70 6f 72 74 22 20 | 74 68 65 6e 0d 73 75 6d |Report" |then.sum|
|00001a80| 52 65 70 6f 72 74 0d 65 | 78 69 74 20 64 6f 4d 65 |Report.e|xit doMe|
|00001a90| 6e 75 0d 65 6c 73 65 20 | 69 66 20 78 20 3d 20 22 |nu.else |if x = "|
|00001aa0| 44 65 6c 65 74 65 20 50 | 72 6f 6a 65 63 74 22 20 |Delete P|roject" |
|00001ab0| 74 68 65 6e 0d 64 65 6c | 43 61 72 64 0d 65 78 69 |then.del|Card.exi|
|00001ac0| 74 20 64 6f 4d 65 6e 75 | 0d 65 6c 73 65 20 69 66 |t doMenu|.else if|
|00001ad0| 20 78 20 3d 20 22 46 69 | 6e 64 2e 2e 2e 22 20 74 | x = "Fi|nd..." t|
|00001ae0| 68 65 6e 0d 64 6f 46 69 | 72 73 74 46 69 6e 64 0d |hen.doFi|rstFind.|
|00001af0| 65 78 69 74 20 64 6f 4d | 65 6e 75 0d 65 6c 73 65 |exit doM|enu.else|
|00001b00| 20 69 66 20 78 20 3d 20 | 22 46 69 6e 64 20 41 67 | if x = |"Find Ag|
|00001b10| 61 69 6e 22 20 74 68 65 | 6e 0d 66 69 6e 64 41 67 |ain" the|n.findAg|
|00001b20| 61 69 6e 0d 65 78 69 74 | 20 64 6f 4d 65 6e 75 0d |ain.exit| doMenu.|
|00001b30| 65 6c 73 65 20 69 66 20 | 78 20 3d 20 22 54 72 61 |else if |x = "Tra|
|00001b40| 6e 73 66 65 72 20 57 61 | 72 6e 69 6e 67 73 22 20 |nsfer Wa|rnings" |
|00001b50| 74 68 65 6e 0d 73 65 74 | 57 61 72 6e 69 6e 67 73 |then.set|Warnings|
|00001b60| 0d 65 78 69 74 20 64 6f | 4d 65 6e 75 0d 65 6c 73 |.exit do|Menu.els|
|00001b70| 65 20 69 66 20 78 20 3d | 20 22 41 75 74 6f 20 54 |e if x =| "Auto T|
|00001b80| 69 6d 65 73 68 65 65 74 | 73 22 20 74 68 65 6e 0d |imesheet|s" then.|
|00001b90| 73 65 74 41 75 74 6f 0d | 65 78 69 74 20 64 6f 4d |setAuto.|exit doM|
|00001ba0| 65 6e 75 0d 65 6c 73 65 | 20 69 66 20 78 20 3d 20 |enu.else| if x = |
|00001bb0| 22 43 75 73 74 6f 6d 20 | 4a 6f 62 20 46 69 65 6c |"Custom |Job Fiel|
|00001bc0| 64 22 20 74 68 65 6e 0d | 73 70 65 63 46 6c 64 53 |d" then.|specFldS|
|00001bd0| 65 74 75 70 0d 65 78 69 | 74 20 64 6f 4d 65 6e 75 |etup.exi|t doMenu|
|00001be0| 0d 65 6c 73 65 20 69 66 | 20 78 20 3d 20 22 4a 6f |.else if| x = "Jo|
|00001bf0| 62 20 4e 75 6d 62 65 72 | 73 22 20 74 68 65 6e 0d |b Number|s" then.|
|00001c00| 73 65 74 4a 6f 62 4e 75 | 6d 0d 65 78 69 74 20 64 |setJobNu|m.exit d|
|00001c10| 6f 4d 65 6e 75 0d 65 6c | 73 65 20 69 66 20 78 20 |oMenu.el|se if x |
|00001c20| 3d 20 22 48 6f 75 72 20 | 44 69 76 69 73 69 6f 6e |= "Hour |Division|
|00001c30| 73 22 20 74 68 65 6e 0d | 63 68 61 6e 67 65 54 69 |s" then.|changeTi|
|00001c40| 6d 65 0d 65 78 69 74 20 | 64 6f 4d 65 6e 75 0d 65 |me.exit |doMenu.e|
|00001c50| 6c 73 65 20 69 66 20 78 | 20 3d 20 22 43 75 72 72 |lse if x| = "Curr|
|00001c60| 65 6e 63 79 20 53 79 6d | 62 6f 6c 22 20 74 68 65 |ency Sym|bol" the|
|00001c70| 6e 0d 73 65 74 43 75 72 | 72 0d 65 78 69 74 20 64 |n.setCur|r.exit d|
|00001c80| 6f 4d 65 6e 75 0d 65 6c | 73 65 20 69 66 20 78 20 |oMenu.el|se if x |
|00001c90| 3d 20 22 52 65 70 6f 72 | 74 20 50 72 69 6e 74 69 |= "Repor|t Printi|
|00001ca0| 6e 67 20 46 6f 6e 74 22 | 20 74 68 65 6e 0d 73 65 |ng Font"| then.se|
|00001cb0| 74 50 72 69 6e 74 46 6f | 6e 74 0d 65 78 69 74 20 |tPrintFo|nt.exit |
|00001cc0| 64 6f 4d 65 6e 75 0d 65 | 6c 73 65 20 69 66 20 78 |doMenu.e|lse if x|
|00001cd0| 20 3d 20 22 4a 6f 62 20 | 45 78 70 6f 72 74 20 46 | = "Job |Export F|
|00001ce0| 6f 72 6d 61 74 22 20 74 | 68 65 6e 0d 65 78 70 6f |ormat" t|hen.expo|
|00001cf0| 72 74 46 6f 72 6d 61 74 | 0d 65 78 69 74 20 64 6f |rtFormat|.exit do|
|00001d00| 4d 65 6e 75 0d 65 6c 73 | 65 20 69 66 20 78 20 3d |Menu.els|e if x =|
|00001d10| 20 22 53 6b 69 70 20 57 | 65 65 6b 65 6e 64 73 22 | "Skip W|eekends"|
|00001d20| 20 74 68 65 6e 0d 73 65 | 74 57 6b 6e 64 73 0d 65 | then.se|tWknds.e|
|00001d30| 78 69 74 20 64 6f 4d 65 | 6e 75 0d 65 6c 73 65 20 |xit doMe|nu.else |
|00001d40| 69 66 20 78 20 3d 20 22 | 50 72 69 6e 74 69 6e 67 |if x = "|Printing|
|00001d50| 20 46 6f 6e 74 22 20 74 | 68 65 6e 0d 73 65 74 50 | Font" t|hen.setP|
|00001d60| 72 69 6e 74 46 6f 6e 74 | 0d 65 78 69 74 20 64 6f |rintFont|.exit do|
|00001d70| 4d 65 6e 75 0d 65 6c 73 | 65 20 69 66 20 78 20 3d |Menu.els|e if x =|
|00001d80| 20 22 4c 6f 6e 67 20 43 | 6f 6d 6d 65 6e 74 73 22 | "Long C|omments"|
|00001d90| 20 74 68 65 6e 0d 73 65 | 74 43 6f 6d 6d 65 6e 74 | then.se|tComment|
|00001da0| 73 0d 65 78 69 74 20 64 | 6f 4d 65 6e 75 0d 65 6c |s.exit d|oMenu.el|
|00001db0| 73 65 20 69 66 20 78 20 | 3d 20 22 50 72 6f 74 65 |se if x |= "Prote|
|00001dc0| 63 74 20 53 74 61 63 6b | 2e 2e 2e 22 20 74 68 65 |ct Stack|..." the|
|00001dd0| 6e 0d 69 66 20 6d 73 67 | 20 ad 20 22 50 61 73 73 |n.if msg| . "Pass|
|00001de0| 77 6f 72 64 22 20 74 68 | 65 6e 0d 65 78 69 74 20 |word" th|en.exit |
|00001df0| 64 6f 6d 65 6e 75 0d 65 | 6e 64 20 69 66 0d 65 6c |domenu.e|nd if.el|
|00001e00| 73 65 20 69 66 20 78 20 | 3d 20 22 45 78 70 6f 72 |se if x |= "Expor|
|00001e10| 74 20 52 65 70 6f 72 74 | 22 20 74 68 65 6e 0d 67 |t Report|" then.g|
|00001e20| 6c 6f 62 61 6c 20 74 6b | 50 72 65 66 73 0d 69 66 |lobal tk|Prefs.if|
|00001e30| 20 6c 69 6e 65 20 31 32 | 20 6f 66 20 74 6b 50 72 | line 12| of tkPr|
|00001e40| 65 66 73 20 3d 20 22 22 | 20 74 68 65 6e 20 65 78 |efs = ""| then ex|
|00001e50| 70 6f 72 74 57 61 72 6e | 0d 65 6c 73 65 20 69 66 |portWarn|.else if|
|00001e60| 20 6c 69 6e 65 20 31 32 | 20 6f 66 20 74 6b 50 72 | line 12| of tkPr|
|00001e70| 65 66 73 20 3d 20 34 20 | 74 68 65 6e 20 66 6c 6d |efs = 4 |then flm|
|00001e80| 52 70 74 0d 65 6c 73 65 | 20 73 73 52 70 74 0d 65 |Rpt.else| ssRpt.e|
|00001e90| 78 69 74 20 64 6f 4d 65 | 6e 75 0d 65 6c 73 65 20 |xit doMe|nu.else |
|00001ea0| 69 66 20 78 20 3d 20 22 | 50 61 67 65 20 53 65 74 |if x = "|Page Set|
|00001eb0| 75 70 2e 2e 2e 22 20 74 | 68 65 6e 0d 70 75 74 20 |up..." t|hen.put |
|00001ec0| 66 6c 64 20 69 64 20 37 | 35 20 6f 66 20 63 64 20 |fld id 7|5 of cd |
|00001ed0| 31 20 69 6e 74 6f 20 70 | 53 65 74 75 70 0d 67 65 |1 into p|Setup.ge|
|00001ee0| 74 20 50 52 50 61 67 65 | 53 65 74 55 70 28 70 53 |t PRPage|SetUp(pS|
|00001ef0| 65 74 75 70 2c 66 61 6c | 73 65 29 0d 69 66 20 66 |etup,fal|se).if f|
|00001f00| 69 72 73 74 20 77 6f 72 | 64 20 6f 66 20 69 74 20 |irst wor|d of it |
|00001f10| 3d 20 22 45 52 52 4f 52 | 3a 22 20 74 68 65 6e 0d |= "ERROR|:" then.|
|00001f20| 62 65 65 70 0d 61 6e 73 | 77 65 72 20 69 74 0d 65 |beep.ans|wer it.e|
|00001f30| 78 69 74 20 64 6f 4d 65 | 6e 75 0d 65 6c 73 65 20 |xit doMe|nu.else |
|00001f40| 69 66 20 69 74 ad 22 63 | 61 6e 63 65 6c 22 20 74 |if it."c|ancel" t|
|00001f50| 68 65 6e 0d 70 75 74 20 | 69 74 20 69 6e 74 6f 20 |hen.put |it into |
|00001f60| 66 6c 64 20 69 64 20 37 | 35 20 6f 66 20 63 64 20 |fld id 7|5 of cd |
|00001f70| 31 0d 65 6e 64 20 69 66 | 0d 65 78 69 74 20 64 6f |1.end if|.exit do|
|00001f80| 4d 65 6e 75 0d 65 6c 73 | 65 20 69 66 20 22 41 62 |Menu.els|e if "Ab|
|00001f90| 6f 75 74 22 20 69 73 20 | 69 6e 20 78 20 74 68 65 |out" is |in x the|
|00001fa0| 6e 0d 69 66 20 74 68 65 | 20 76 69 73 69 62 6c 65 |n.if the| visible|
|00001fb0| 20 6f 66 20 66 6c 64 20 | 69 64 20 35 37 20 6f 66 | of fld |id 57 of|
|00001fc0| 20 63 64 20 31 20 3d 20 | 74 72 75 65 20 74 68 65 | cd 1 = |true the|
|00001fd0| 6e 20 65 78 69 74 20 64 | 6f 4d 65 6e 75 0d 69 66 |n exit d|oMenu.if|
|00001fe0| 20 74 68 65 20 76 69 73 | 69 62 6c 65 20 6f 66 20 | the vis|ible of |
|00001ff0| 63 64 20 77 69 6e 64 6f | 77 20 3d 20 66 61 6c 73 |cd windo|w = fals|
|00002000| 65 20 74 68 65 6e 20 65 | 78 69 74 20 64 6f 4d 65 |e then e|xit doMe|
|00002010| 6e 75 0d 61 62 6f 75 74 | 4d 65 0d 65 78 69 74 20 |nu.about|Me.exit |
|00002020| 64 6f 4d 65 6e 75 0d 65 | 6e 64 20 69 66 0d 70 61 |doMenu.e|nd if.pa|
|00002030| 73 73 20 64 6f 4d 65 6e | 75 0d 65 6e 64 20 64 6f |ss doMen|u.end do|
|00002040| 4d 65 6e 75 0d 0d 6f 6e | 20 73 74 61 72 74 45 78 |Menu..on| startEx|
|00002050| 70 6f 72 74 0d 67 6c 6f | 62 61 6c 20 74 6b 50 72 |port.glo|bal tkPr|
|00002060| 65 66 73 0d 69 66 20 6c | 69 6e 65 20 31 32 20 6f |efs.if l|ine 12 o|
|00002070| 66 20 74 6b 50 72 65 66 | 73 20 3d 20 65 6d 70 74 |f tkPref|s = empt|
|00002080| 79 20 74 68 65 6e 20 65 | 78 70 6f 72 74 57 61 72 |y then e|xportWar|
|00002090| 6e 0d 69 66 20 6c 69 6e | 65 20 31 32 20 6f 66 20 |n.if lin|e 12 of |
|000020a0| 74 6b 50 72 65 66 73 20 | 3d 20 34 20 74 68 65 6e |tkPrefs |= 4 then|
|000020b0| 20 66 6c 6d 52 70 74 0d | 65 6c 73 65 20 73 73 52 | flmRpt.|else ssR|
|000020c0| 70 74 0d 65 6e 64 20 73 | 74 61 72 74 45 78 70 6f |pt.end s|tartExpo|
|000020d0| 72 74 0d 0d 6f 6e 20 66 | 6d 53 65 74 55 70 0d 67 |rt..on f|mSetUp.g|
|000020e0| 6c 6f 62 61 6c 20 74 6b | 50 72 65 66 73 0d 62 65 |lobal tk|Prefs.be|
|000020f0| 65 70 0d 61 6e 73 77 65 | 72 20 66 69 6c 65 20 22 |ep.answe|r file "|
|00002100| 57 68 65 72 65 20 69 73 | 20 46 69 6c 65 4d 61 6b |Where is| FileMak|
|00002110| 65 72 3f 22 20 6f 66 20 | 74 79 70 65 20 41 50 50 |er?" of |type APP|
|00002120| 4c 0d 70 75 74 20 69 74 | 20 69 6e 74 6f 20 66 6d |L.put it| into fm|
|00002130| 50 61 74 68 0d 69 66 20 | 66 6d 50 61 74 68 20 3d |Path.if |fmPath =|
|00002140| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 65 78 69 74 | empty t|hen exit|
|00002150| 20 66 6d 53 65 74 55 70 | 0d 70 75 74 20 66 6d 50 | fmSetUp|.put fmP|
|00002160| 61 74 68 20 69 6e 74 6f | 20 6c 69 6e 65 20 31 20 |ath into| line 1 |
|00002170| 6f 66 20 74 6b 50 72 65 | 66 73 0d 70 72 65 66 53 |of tkPre|fs.prefS|
|00002180| 65 74 0d 65 6e 64 20 66 | 6d 53 65 74 55 70 0d 0d |et.end f|mSetUp..|
|00002190| 6f 6e 20 78 6c 53 65 74 | 55 70 0d 67 6c 6f 62 61 |on xlSet|Up.globa|
|000021a0| 6c 20 74 6b 50 72 65 66 | 73 0d 62 65 65 70 0d 61 |l tkPref|s.beep.a|
|000021b0| 6e 73 77 65 72 20 66 69 | 6c 65 20 22 57 68 65 72 |nswer fi|le "Wher|
|000021c0| 65 20 69 73 20 79 6f 75 | 72 20 53 70 72 65 61 64 |e is you|r Spread|
|000021d0| 73 68 65 65 74 20 6f 72 | 20 57 6f 72 64 20 50 72 |sheet or| Word Pr|
|000021e0| 6f 63 65 73 73 6f 72 3f | 22 20 6f 66 20 74 79 70 |ocessor?|" of typ|
|000021f0| 65 20 41 50 50 4c 0d 70 | 75 74 20 69 74 20 69 6e |e APPL.p|ut it in|
|00002200| 74 6f 20 61 70 70 4e 61 | 6d 65 0d 69 66 20 61 70 |to appNa|me.if ap|
|00002210| 70 4e 61 6d 65 20 3d 20 | 65 6d 70 74 79 20 74 68 |pName = |empty th|
|00002220| 65 6e 20 65 78 69 74 20 | 78 6c 53 65 74 55 70 0d |en exit |xlSetUp.|
|00002230| 70 75 74 20 61 70 70 4e | 61 6d 65 20 69 6e 74 6f |put appN|ame into|
|00002240| 20 6c 69 6e 65 20 32 20 | 6f 66 20 74 6b 50 72 65 | line 2 |of tkPre|
|00002250| 66 73 0d 69 66 20 74 68 | 65 20 76 65 72 73 69 6f |fs.if th|e versio|
|00002260| 6e 20 3c 20 32 2e 31 20 | 74 68 65 6e 20 70 75 74 |n < 2.1 |then put|
|00002270| 20 69 74 65 6d 44 65 6c | 69 6d 53 65 74 28 61 70 | itemDel|imSet(ap|
|00002280| 70 4e 61 6d 65 2c 22 3a | 22 29 20 69 6e 74 6f 20 |pName,":|") into |
|00002290| 61 70 70 4e 61 6d 65 0d | 69 66 20 74 68 65 20 76 |appName.|if the v|
|000022a0| 65 72 73 69 6f 6e 20 3e | 20 32 2e 30 20 74 68 65 |ersion >| 2.0 the|
|000022b0| 6e 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 44 65 |n set th|e itemDe|
|000022c0| 6c 69 6d 69 74 65 72 20 | 74 6f 20 22 3a 22 0d 70 |limiter |to ":".p|
|000022d0| 75 74 20 6c 61 73 74 20 | 69 74 65 6d 20 6f 66 20 |ut last |item of |
|000022e0| 61 70 70 4e 61 6d 65 20 | 69 6e 74 6f 20 6c 69 6e |appName |into lin|
|000022f0| 65 20 34 20 6f 66 20 74 | 6b 50 72 65 66 73 0d 69 |e 4 of t|kPrefs.i|
|00002300| 66 20 74 68 65 20 76 65 | 72 73 69 6f 6e 20 3e 20 |f the ve|rsion > |
|00002310| 32 2e 30 20 74 68 65 6e | 20 73 65 74 20 74 68 65 |2.0 then| set the|
|00002320| 20 69 74 65 6d 44 65 6c | 69 6d 69 74 65 72 20 74 | itemDel|imiter t|
|00002330| 6f 20 22 2c 22 0d 70 72 | 65 66 53 65 74 0d 65 6e |o ",".pr|efSet.en|
|00002340| 64 20 78 6c 53 65 74 55 | 70 0d 0d 6f 6e 20 73 65 |d xlSetU|p..on se|
|00002350| 6c 65 63 74 57 61 72 6e | 69 6e 67 0d 62 65 65 70 |lectWarn|ing.beep|
|00002360| 20 6f 6e 65 0d 73 68 6f | 77 44 69 61 6c 6f 67 20 | one.sho|wDialog |
|00002370| 32 2c 32 39 35 31 2c 22 | 59 6f 75 20 6d 75 73 74 |2,2951,"|You must|
|00002380| 20 73 65 6c 65 63 74 20 | 61 20 6c 69 6e 65 20 66 | select |a line f|
|00002390| 69 72 73 74 21 22 2c 22 | 22 2c 22 22 0d 65 6e 64 |irst!","|","".end|
|000023a0| 20 73 65 6c 65 63 74 57 | 61 72 6e 69 6e 67 0d 0d | selectW|arning..|
|000023b0| 6f 6e 20 66 6d 52 65 70 | 6f 72 74 0d 67 6c 6f 62 |on fmRep|ort.glob|
|000023c0| 61 6c 20 74 6f 64 61 79 | 2c 6c 6e 73 2c 70 2c 72 |al today|,lns,p,r|
|000023d0| 65 70 6f 72 74 4e 61 6d | 65 2c 74 6b 50 72 65 66 |eportNam|e,tkPref|
|000023e0| 73 2c 72 65 70 6f 72 74 | 46 69 6c 65 0d 69 66 20 |s,report|File.if |
|000023f0| 6c 69 6e 65 20 31 20 6f | 66 20 74 6b 50 72 65 66 |line 1 o|f tkPref|
|00002400| 73 20 3d 20 65 6d 70 74 | 79 20 74 68 65 6e 20 66 |s = empt|y then f|
|00002410| 6d 53 65 74 55 70 0d 73 | 65 74 20 63 75 72 73 6f |mSetUp.s|et curso|
|00002420| 72 20 74 6f 20 77 61 74 | 63 68 0d 69 66 20 6c 65 |r to wat|ch.if le|
|00002430| 6e 67 74 68 28 72 65 70 | 6f 72 74 4e 61 6d 65 29 |ngth(rep|ortName)|
|00002440| 20 3e 20 33 31 20 74 68 | 65 6e 20 70 75 74 20 74 | > 31 th|en put t|
|00002450| 72 75 6e 63 52 65 70 6f | 72 74 4e 61 6d 65 28 72 |runcRepo|rtName(r|
|00002460| 65 70 6f 72 74 4e 61 6d | 65 29 20 c2 0d 69 6e 74 |eportNam|e) ..int|
|00002470| 6f 20 72 65 70 6f 72 74 | 4e 61 6d 65 0d 61 73 6b |o report|Name.ask|
|00002480| 20 66 69 6c 65 20 22 53 | 61 76 65 20 4a 6f 62 20 | file "S|ave Job |
|00002490| 53 68 65 65 74 20 72 65 | 70 6f 72 74 20 61 73 2e |Sheet re|port as.|
|000024a0| 2e 2e 22 20 77 69 74 68 | 20 72 65 70 6f 72 74 4e |.." with| reportN|
|000024b0| 61 6d 65 0d 69 66 20 69 | 74 20 3d 20 65 6d 70 74 |ame.if i|t = empt|
|000024c0| 79 20 74 68 65 6e 20 65 | 78 69 74 20 74 6f 20 68 |y then e|xit to h|
|000024d0| 79 70 65 72 63 61 72 64 | 0d 70 75 74 20 69 74 20 |ypercard|.put it |
|000024e0| 69 6e 74 6f 20 72 65 70 | 6f 72 74 46 69 6c 65 0d |into rep|ortFile.|
|000024f0| 6f 70 65 6e 20 66 69 6c | 65 20 72 65 70 6f 72 74 |open fil|e report|
|00002500| 46 69 6c 65 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |File.set| cursor |
|00002510| 74 6f 20 77 61 74 63 68 | 0d 69 66 20 6c 69 6e 65 |to watch|.if line|
|00002520| 20 39 20 6f 66 20 74 6b | 50 72 65 66 73 20 3d 20 | 9 of tk|Prefs = |
|00002530| 22 74 72 75 65 22 20 74 | 68 65 6e 0d 70 75 74 20 |"true" t|hen.put |
|00002540| 6c 69 6e 65 20 31 31 20 | 6f 66 20 74 6b 50 72 65 |line 11 |of tkPre|
|00002550| 66 73 20 26 20 74 61 62 | 20 26 20 66 6c 64 20 69 |fs & tab| & fld i|
|00002560| 64 20 31 30 20 26 20 74 | 61 62 20 69 6e 74 6f 20 |d 10 & t|ab into |
|00002570| 74 65 78 74 0d 65 6c 73 | 65 0d 70 75 74 20 74 61 |text.els|e.put ta|
|00002580| 62 20 26 20 74 61 62 20 | 69 6e 74 6f 20 74 65 78 |b & tab |into tex|
|00002590| 74 0d 65 6e 64 20 69 66 | 0d 70 75 74 20 66 6c 64 |t.end if|.put fld|
|000025a0| 20 69 64 20 34 34 20 26 | 20 74 61 62 20 26 20 66 | id 44 &| tab & f|
|000025b0| 6c 64 20 69 64 20 38 20 | 26 20 74 61 62 20 26 20 |ld id 8 |& tab & |
|000025c0| 66 6c 64 20 69 64 20 39 | 20 26 20 74 61 62 20 26 |fld id 9| & tab &|
|000025d0| 20 74 6f 64 61 79 20 c2 | 0d 26 20 74 61 62 20 61 | today .|.& tab a|
|000025e0| 66 74 65 72 20 74 65 78 | 74 0d 72 65 70 65 61 74 |fter tex|t.repeat|
|000025f0| 20 77 69 74 68 20 78 20 | 3d 20 31 20 74 6f 20 6c | with x |= 1 to l|
|00002600| 6e 73 0d 70 75 74 20 6c | 69 6e 65 20 78 20 6f 66 |ns.put l|ine x of|
|00002610| 20 66 6c 64 20 69 64 20 | 32 20 26 20 70 20 61 66 | fld id |2 & p af|
|00002620| 74 65 72 20 74 65 78 74 | 0d 6e 65 78 74 20 72 65 |ter text|.next re|
|00002630| 70 65 61 74 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |peat.end| repeat.|
|00002640| 70 75 74 20 74 61 62 20 | 61 66 74 65 72 20 74 65 |put tab |after te|
|00002650| 78 74 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 78 |xt.repea|t with x|
|00002660| 20 3d 20 31 20 74 6f 20 | 6c 6e 73 0d 70 75 74 20 | = 1 to |lns.put |
|00002670| 6c 69 6e 65 20 78 20 6f | 66 20 66 6c 64 20 69 64 |line x o|f fld id|
|00002680| 20 33 20 26 20 70 20 61 | 66 74 65 72 20 74 65 78 | 3 & p a|fter tex|
|00002690| 74 0d 6e 65 78 74 20 72 | 65 70 65 61 74 0d 65 6e |t.next r|epeat.en|
|000026a0| 64 20 72 65 70 65 61 74 | 0d 70 75 74 20 74 61 62 |d repeat|.put tab|
|000026b0| 20 61 66 74 65 72 20 74 | 65 78 74 0d 72 65 70 65 | after t|ext.repe|
|000026c0| 61 74 20 77 69 74 68 20 | 78 20 3d 20 31 20 74 6f |at with |x = 1 to|
|000026d0| 20 6c 6e 73 0d 70 75 74 | 20 6c 69 6e 65 20 78 20 | lns.put| line x |
|000026e0| 6f 66 20 66 6c 64 20 69 | 64 20 34 20 26 20 70 20 |of fld i|d 4 & p |
|000026f0| 61 66 74 65 72 20 74 65 | 78 74 0d 6e 65 78 74 20 |after te|xt.next |
|00002700| 72 65 70 65 61 74 0d 65 | 6e 64 20 72 65 70 65 61 |repeat.e|nd repea|
|00002710| 74 0d 70 75 74 20 74 61 | 62 20 61 66 74 65 72 20 |t.put ta|b after |
|00002720| 74 65 78 74 0d 72 65 70 | 65 61 74 20 77 69 74 68 |text.rep|eat with|
|00002730| 20 78 20 3d 20 31 20 74 | 6f 20 6c 6e 73 0d 70 75 | x = 1 t|o lns.pu|
|00002740| 74 20 6c 69 6e 65 20 78 | 20 6f 66 20 66 6c 64 20 |t line x| of fld |
|00002750| 69 64 20 36 20 26 20 70 | 20 61 66 74 65 72 20 74 |id 6 & p| after t|
|00002760| 65 78 74 0d 6e 65 78 74 | 20 72 65 70 65 61 74 0d |ext.next| repeat.|
|00002770| 65 6e 64 20 72 65 70 65 | 61 74 0d 70 75 74 20 74 |end repe|at.put t|
|00002780| 61 62 20 61 66 74 65 72 | 20 74 65 78 74 0d 72 65 |ab after| text.re|
|00002790| 70 65 61 74 20 77 69 74 | 68 20 78 20 3d 20 31 20 |peat wit|h x = 1 |
|000027a0| 74 6f 20 6c 6e 73 0d 70 | 75 74 20 6c 69 6e 65 20 |to lns.p|ut line |
|000027b0| 78 20 6f 66 20 66 6c 64 | 20 69 64 20 35 20 26 20 |x of fld| id 5 & |
|000027c0| 70 20 61 66 74 65 72 20 | 74 65 78 74 0d 6e 65 78 |p after |text.nex|
|000027d0| 74 20 72 65 70 65 61 74 | 0d 65 6e 64 20 72 65 70 |t repeat|.end rep|
|000027e0| 65 61 74 0d 77 72 69 74 | 65 20 74 65 78 74 20 74 |eat.writ|e text t|
|000027f0| 6f 20 66 69 6c 65 20 72 | 65 70 6f 72 74 46 69 6c |o file r|eportFil|
|00002800| 65 0d 63 6c 6f 73 65 20 | 66 69 6c 65 20 72 65 70 |e.close |file rep|
|00002810| 6f 72 74 46 69 6c 65 0d | 73 68 6f 77 44 69 61 6c |ortFile.|showDial|
|00002820| 6f 67 20 31 2c 32 36 31 | 39 2c 22 4f 70 65 6e 20 |og 1,261|9,"Open |
|00002830| 46 69 6c 65 4d 61 6b 65 | 72 20 52 65 70 6f 72 74 |FileMake|r Report|
|00002840| 3f 22 2c 54 52 55 45 0d | 69 66 20 74 68 65 20 72 |?",TRUE.|if the r|
|00002850| 65 73 75 6c 74 20 3d 20 | 34 20 74 68 65 6e 20 65 |esult = |4 then e|
|00002860| 78 69 74 20 66 6d 52 65 | 70 6f 72 74 0d 69 66 20 |xit fmRe|port.if |
|00002870| 6c 69 6e 65 20 31 35 20 | 6f 66 20 74 6b 50 72 65 |line 15 |of tkPre|
|00002880| 66 73 20 3d 20 65 6d 70 | 74 79 20 6f 72 20 74 68 |fs = emp|ty or th|
|00002890| 65 72 65 20 69 73 20 6e | 6f 74 20 61 20 66 69 6c |ere is n|ot a fil|
|000028a0| 65 20 6c 69 6e 65 20 31 | 35 20 6f 66 20 74 6b 50 |e line 1|5 of tkP|
|000028b0| 72 65 66 73 0d 74 68 65 | 6e 20 66 69 6e 64 54 69 |refs.the|n findTi|
|000028c0| 6d 65 52 65 70 6f 72 74 | 0d 69 66 20 6c 69 6e 65 |meReport|.if line|
|000028d0| 20 31 20 6f 66 20 74 6b | 50 72 65 66 73 20 ad 20 | 1 of tk|Prefs . |
|000028e0| 65 6d 70 74 79 20 74 68 | 65 6e 20 6f 70 65 6e 20 |empty th|en open |
|000028f0| 6c 69 6e 65 20 31 35 20 | 6f 66 20 74 6b 50 72 65 |line 15 |of tkPre|
|00002900| 66 73 20 77 69 74 68 20 | c2 0d 6c 69 6e 65 20 31 |fs with |..line 1|
|00002910| 20 6f 66 20 74 6b 50 72 | 65 66 73 0d 65 6e 64 20 | of tkPr|efs.end |
|00002920| 66 6d 52 65 70 6f 72 74 | 0d 0d 6f 6e 20 66 69 6e |fmReport|..on fin|
|00002930| 64 54 69 6d 65 52 65 70 | 6f 72 74 0d 67 6c 6f 62 |dTimeRep|ort.glob|
|00002940| 61 6c 20 74 6b 50 72 65 | 66 73 0d 61 6e 73 77 65 |al tkPre|fs.answe|
|00002950| 72 20 66 69 6c 65 20 22 | 57 68 65 72 65 20 69 73 |r file "|Where is|
|00002960| 20 74 68 65 20 d2 54 69 | 6d 65 20 52 65 70 6f 72 | the .Ti|me Repor|
|00002970| 74 d3 20 66 69 6c 65 3f | 22 0d 69 66 20 69 74 20 |t. file?|".if it |
|00002980| 3d 20 65 6d 70 74 79 20 | 74 68 65 6e 20 65 78 69 |= empty |then exi|
|00002990| 74 20 74 6f 20 68 79 70 | 65 72 63 61 72 64 0d 69 |t to hyp|ercard.i|
|000029a0| 66 20 22 54 69 6d 65 20 | 52 65 70 6f 72 74 22 20 |f "Time |Report" |
|000029b0| 69 73 20 6e 6f 74 20 69 | 6e 20 69 74 20 74 68 65 |is not i|n it the|
|000029c0| 6e 0d 73 68 6f 77 44 69 | 61 6c 6f 67 20 31 2c 34 |n.showDi|alog 1,4|
|000029d0| 30 35 30 2c 22 41 72 65 | 20 79 6f 75 20 73 75 72 |050,"Are| you sur|
|000029e0| 65 20 74 68 69 73 20 69 | 73 20 61 20 d2 54 69 6d |e this i|s a .Tim|
|000029f0| 65 20 52 65 70 6f 72 74 | d3 20 66 69 6c 65 3f 22 |e Report|. file?"|
|00002a00| 2c 54 52 55 45 0d 69 66 | 20 74 68 65 20 72 65 73 |,TRUE.if| the res|
|00002a10| 75 6c 74 20 3d 20 34 20 | 74 68 65 6e 20 65 78 69 |ult = 4 |then exi|
|00002a20| 74 20 74 6f 20 68 79 70 | 65 72 63 61 72 64 0d 65 |t to hyp|ercard.e|
|00002a30| 6e 64 20 69 66 0d 70 75 | 74 20 69 74 20 69 6e 74 |nd if.pu|t it int|
|00002a40| 6f 20 6c 69 6e 65 20 31 | 35 20 6f 66 20 74 6b 50 |o line 1|5 of tkP|
|00002a50| 72 65 66 73 0d 70 72 65 | 66 53 65 74 0d 65 6e 64 |refs.pre|fSet.end|
|00002a60| 20 66 69 6e 64 54 69 6d | 65 52 65 70 6f 72 74 0d | findTim|eReport.|
|00002a70| 0d 6f 6e 20 78 6c 52 65 | 70 6f 72 74 0d 67 6c 6f |.on xlRe|port.glo|
|00002a80| 62 61 6c 20 74 6f 64 61 | 79 2c 72 65 70 6f 72 74 |bal toda|y,report|
|00002a90| 4e 61 6d 65 2c 6c 6e 73 | 2c 74 6b 50 72 65 66 73 |Name,lns|,tkPrefs|
|00002aa0| 2c 72 65 70 6f 72 74 46 | 69 6c 65 0d 69 66 20 6c |,reportF|ile.if l|
|00002ab0| 69 6e 65 20 32 20 6f 66 | 20 74 6b 50 72 65 66 73 |ine 2 of| tkPrefs|
|00002ac0| 20 3d 20 65 6d 70 74 79 | 20 74 68 65 6e 20 78 6c | = empty| then xl|
|00002ad0| 53 65 74 55 70 0d 73 65 | 74 20 63 75 72 73 6f 72 |SetUp.se|t cursor|
|00002ae0| 20 74 6f 20 77 61 74 63 | 68 0d 69 66 20 6c 65 6e | to watc|h.if len|
|00002af0| 67 74 68 28 72 65 70 6f | 72 74 4e 61 6d 65 29 20 |gth(repo|rtName) |
|00002b00| 3e 20 33 31 20 74 68 65 | 6e 20 70 75 74 20 74 72 |> 31 the|n put tr|
|00002b10| 75 6e 63 52 65 70 6f 72 | 74 4e 61 6d 65 28 72 65 |uncRepor|tName(re|
|00002b20| 70 6f 72 74 4e 61 6d 65 | 29 20 c2 0d 69 6e 74 6f |portName|) ..into|
|00002b30| 20 72 65 70 6f 72 74 4e | 61 6d 65 0d 61 73 6b 20 | reportN|ame.ask |
|00002b40| 66 69 6c 65 20 22 53 61 | 76 65 20 4a 6f 62 20 53 |file "Sa|ve Job S|
|00002b50| 68 65 65 74 20 72 65 70 | 6f 72 74 20 61 73 2e 2e |heet rep|ort as..|
|00002b60| 2e 22 20 77 69 74 68 20 | 72 65 70 6f 72 74 4e 61 |." with |reportNa|
|00002b70| 6d 65 0d 69 66 20 69 74 | 20 3d 20 65 6d 70 74 79 |me.if it| = empty|
|00002b80| 20 74 68 65 6e 20 65 78 | 69 74 20 74 6f 20 68 79 | then ex|it to hy|
|00002b90| 70 65 72 63 61 72 64 0d | 70 75 74 20 69 74 20 69 |percard.|put it i|
|00002ba0| 6e 74 6f 20 72 65 70 6f | 72 74 46 69 6c 65 0d 6f |nto repo|rtFile.o|
|00002bb0| 70 65 6e 20 66 69 6c 65 | 20 72 65 70 6f 72 74 46 |pen file| reportF|
|00002bc0| 69 6c 65 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |ile.set |cursor t|
|00002bd0| 6f 20 77 61 74 63 68 0d | 70 75 74 20 74 61 62 20 |o watch.|put tab |
|00002be0| 26 20 74 61 62 20 26 20 | 22 54 49 4d 45 20 52 45 |& tab & |"TIME RE|
|00002bf0| 50 4f 52 54 22 20 26 20 | 72 65 74 75 72 6e 20 26 |PORT" & |return &|
|00002c00| c2 0d 74 61 62 20 26 20 | 74 61 62 20 26 20 74 6f |..tab & |tab & to|
|00002c10| 64 61 79 20 26 20 72 65 | 74 75 72 6e 20 26 20 72 |day & re|turn & r|
|00002c20| 65 74 75 72 6e 20 26 20 | c2 0d 66 6c 64 20 69 64 |eturn & |..fld id|
|00002c30| 20 34 34 20 26 20 74 61 | 62 20 26 20 74 61 62 20 | 44 & ta|b & tab |
|00002c40| 26 20 66 6c 64 20 69 64 | 20 38 20 26 20 72 65 74 |& fld id| 8 & ret|
|00002c50| 75 72 6e 20 26 20 72 65 | 74 75 72 6e 20 26 20 c2 |urn & re|turn & .|
|00002c60| 0d 22 4a 6f 62 20 23 3a | 20 22 20 26 20 74 61 62 |."Job #:| " & tab|
|00002c70| 20 26 20 66 6c 64 20 69 | 64 20 39 20 26 20 74 61 | & fld i|d 9 & ta|
|00002c80| 62 20 26 20 74 61 62 20 | 69 6e 74 6f 20 74 65 78 |b & tab |into tex|
|00002c90| 74 0d 69 66 20 6c 69 6e | 65 20 39 20 6f 66 20 74 |t.if lin|e 9 of t|
|00002ca0| 6b 50 72 65 66 73 20 3d | 20 22 74 72 75 65 22 20 |kPrefs =| "true" |
|00002cb0| 74 68 65 6e 0d 70 75 74 | 20 6c 69 6e 65 20 31 31 |then.put| line 11|
|00002cc0| 20 6f 66 20 74 6b 50 72 | 65 66 73 20 26 20 74 61 | of tkPr|efs & ta|
|00002cd0| 62 20 26 20 66 6c 64 20 | 69 64 20 31 30 20 61 66 |b & fld |id 10 af|
|00002ce0| 74 65 72 20 74 65 78 74 | 0d 65 6e 64 20 69 66 0d |ter text|.end if.|
|00002cf0| 70 75 74 20 72 65 74 75 | 72 6e 20 26 20 72 65 74 |put retu|rn & ret|
|00002d00| 75 72 6e 20 26 20 72 65 | 74 75 72 6e 20 61 66 74 |urn & re|turn aft|
|00002d10| 65 72 20 74 65 78 74 0d | 70 75 74 20 22 44 41 54 |er text.|put "DAT|
|00002d20| 45 22 20 26 20 74 61 62 | 20 26 20 22 41 43 54 49 |E" & tab| & "ACTI|
|00002d30| 56 49 54 59 22 20 26 20 | 74 61 62 20 26 20 22 4e |VITY" & |tab & "N|
|00002d40| 4f 54 45 53 22 20 26 20 | 74 61 62 20 26 20 74 61 |OTES" & |tab & ta|
|00002d50| 62 20 26 20 22 43 48 41 | 52 47 45 53 22 20 26 20 |b & "CHA|RGES" & |
|00002d60| 74 61 62 20 26 20 22 48 | 4f 55 52 53 22 20 26 c2 |tab & "H|OURS" &.|
|00002d70| 0d 72 65 74 75 72 6e 20 | 61 66 74 65 72 20 74 65 |.return |after te|
|00002d80| 78 74 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 78 |xt.repea|t with x|
|00002d90| 20 3d 20 31 20 74 6f 20 | 6c 6e 73 0d 70 75 74 20 | = 1 to |lns.put |
|00002da0| 6c 69 6e 65 20 78 20 6f | 66 20 66 6c 64 20 69 64 |line x o|f fld id|
|00002db0| 20 32 20 26 20 74 61 62 | 20 26 20 6c 69 6e 65 20 | 2 & tab| & line |
|00002dc0| 78 20 6f 66 20 66 6c 64 | 20 69 64 20 33 20 26 20 |x of fld| id 3 & |
|00002dd0| 74 61 62 20 26 c2 0d 6c | 69 6e 65 20 78 20 6f 66 |tab &..l|ine x of|
|00002de0| 20 66 6c 64 20 69 64 20 | 34 20 26 20 74 61 62 20 | fld id |4 & tab |
|00002df0| 26 20 74 61 62 20 26 20 | 6c 69 6e 65 20 78 20 6f |& tab & |line x o|
|00002e00| 66 20 66 6c 64 20 69 64 | 20 35 20 26 20 74 61 62 |f fld id| 5 & tab|
|00002e10| 20 26 20 6c 69 6e 65 20 | 78 20 6f 66 20 66 6c 64 | & line |x of fld|
|00002e20| 20 69 64 20 36 20 26 c2 | 0d 72 65 74 75 72 6e 20 | id 6 &.|.return |
|00002e30| 61 66 74 65 72 20 74 65 | 78 74 0d 6e 65 78 74 20 |after te|xt.next |
|00002e40| 72 65 70 65 61 74 0d 65 | 6e 64 20 72 65 70 65 61 |repeat.e|nd repea|
|00002e50| 74 0d 77 72 69 74 65 20 | 74 65 78 74 20 74 6f 20 |t.write |text to |
|00002e60| 66 69 6c 65 20 72 65 70 | 6f 72 74 46 69 6c 65 0d |file rep|ortFile.|
|00002e70| 63 6c 6f 73 65 20 66 69 | 6c 65 20 72 65 70 6f 72 |close fi|le repor|
|00002e80| 74 46 69 6c 65 0d 73 68 | 6f 77 44 69 61 6c 6f 67 |tFile.sh|owDialog|
|00002e90| 20 31 2c 32 36 31 39 2c | 22 4f 70 65 6e 20 72 65 | 1,2619,|"Open re|
|00002ea0| 70 6f 72 74 20 77 69 74 | 68 20 22 20 26 20 6c 69 |port wit|h " & li|
|00002eb0| 6e 65 20 34 20 6f 66 20 | 74 6b 50 72 65 66 73 20 |ne 4 of |tkPrefs |
|00002ec0| 26 20 22 20 6e 6f 77 3f | 22 2c 54 52 55 45 0d 69 |& " now?|",TRUE.i|
|00002ed0| 66 20 74 68 65 20 72 65 | 73 75 6c 74 20 3d 20 34 |f the re|sult = 4|
|00002ee0| 20 74 68 65 6e 20 65 78 | 69 74 20 78 6c 52 65 70 | then ex|it xlRep|
|00002ef0| 6f 72 74 0d 65 6c 73 65 | 0d 6f 70 65 6e 20 72 65 |ort.else|.open re|
|00002f00| 70 6f 72 74 46 69 6c 65 | 20 77 69 74 68 20 6c 69 |portFile| with li|
|00002f10| 6e 65 20 32 20 6f 66 20 | 74 6b 50 72 65 66 73 0d |ne 2 of |tkPrefs.|
|00002f20| 65 6e 64 20 69 66 0d 65 | 6e 64 20 78 6c 52 65 70 |end if.e|nd xlRep|
|00002f30| 6f 72 74 0d 0d 6f 6e 20 | 73 73 52 70 74 0d 67 6c |ort..on |ssRpt.gl|
|00002f40| 6f 62 61 6c 20 74 6f 64 | 61 79 2c 70 2c 74 65 78 |obal tod|ay,p,tex|
|00002f50| 74 2c 72 65 70 6f 72 74 | 4e 61 6d 65 2c 6c 6e 73 |t,report|Name,lns|
|00002f60| 0d 70 75 74 20 66 6c 64 | 20 69 64 20 34 34 20 26 |.put fld| id 44 &|
|00002f70| 20 22 2f 22 20 26 20 66 | 6c 64 20 69 64 20 39 20 | "/" & f|ld id 9 |
|00002f80| 26 20 22 20 45 78 70 6f | 72 74 22 20 69 6e 74 6f |& " Expo|rt" into|
|00002f90| 20 72 65 70 6f 72 74 4e | 61 6d 65 0d 70 75 74 20 | reportN|ame.put |
|00002fa0| 74 68 65 20 64 61 74 65 | 20 69 6e 74 6f 20 74 6f |the date| into to|
|00002fb0| 64 61 79 0d 70 75 74 20 | 6e 75 6d 62 65 72 20 6f |day.put |number o|
|00002fc0| 66 20 6c 69 6e 65 73 20 | 69 6e 20 66 6c 64 20 69 |f lines |in fld i|
|00002fd0| 64 20 35 20 69 6e 74 6f | 20 6c 6e 73 0d 58 4c 52 |d 5 into| lns.XLR|
|00002fe0| 65 70 6f 72 74 0d 65 6e | 64 20 73 73 52 70 74 0d |eport.en|d ssRpt.|
|00002ff0| 0d 6f 6e 20 66 6c 6d 52 | 70 74 0d 67 6c 6f 62 61 |.on flmR|pt.globa|
|00003000| 6c 20 74 6f 64 61 79 2c | 70 2c 6c 6e 73 2c 74 65 |l today,|p,lns,te|
|00003010| 78 74 2c 72 65 70 6f 72 | 74 4e 61 6d 65 0d 70 75 |xt,repor|tName.pu|
|00003020| 74 20 66 6c 64 20 69 64 | 20 34 34 20 26 20 22 2f |t fld id| 44 & "/|
|00003030| 22 20 26 20 66 6c 64 20 | 69 64 20 37 20 26 20 22 |" & fld |id 7 & "|
|00003040| 20 45 78 70 6f 72 74 22 | 20 69 6e 74 6f 20 72 65 | Export"| into re|
|00003050| 70 6f 72 74 4e 61 6d 65 | 0d 70 75 74 20 6e 75 6d |portName|.put num|
|00003060| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 69 6e 20 |ber of l|ines in |
|00003070| 66 6c 64 20 69 64 20 35 | 20 69 6e 74 6f 20 6c 6e |fld id 5| into ln|
|00003080| 73 0d 69 66 20 6c 6e 73 | 20 3e 20 33 36 20 74 68 |s.if lns| > 36 th|
|00003090| 65 6e 20 66 61 74 52 65 | 70 6f 72 74 0d 70 75 74 |en fatRe|port.put|
|000030a0| 20 74 68 65 20 64 61 74 | 65 20 69 6e 74 6f 20 74 | the dat|e into t|
|000030b0| 6f 64 61 79 0d 70 75 74 | 20 74 68 65 20 6e 75 6d |oday.put| the num|
|000030c0| 54 6f 43 68 61 72 20 6f | 66 20 32 39 20 69 6e 74 |ToChar o|f 29 int|
|000030d0| 6f 20 70 0d 46 4d 52 65 | 70 6f 72 74 0d 65 6e 64 |o p.FMRe|port.end|
|000030e0| 20 66 6c 6d 52 70 74 0d | 0d 6f 6e 20 66 61 74 52 | flmRpt.|.on fatR|
|000030f0| 65 70 6f 72 74 0d 67 6c | 6f 62 61 6c 20 6c 6e 73 |eport.gl|obal lns|
|00003100| 0d 70 75 74 20 22 59 6f | 75 20 68 61 76 65 22 20 |.put "Yo|u have" |
|00003110| 26 26 20 6c 6e 73 20 26 | 26 20 22 6c 69 6e 65 73 |&& lns &|& "lines|
|00003120| 2e 20 27 54 69 6d 65 20 | 52 65 70 6f 72 74 27 20 |. 'Time |Report' |
|00003130| 68 6f 6c 64 73 20 33 36 | 2e 20 44 6f 20 79 6f 75 |holds 36|. Do you|
|00003140| 20 73 74 69 6c 6c 20 77 | 61 6e 74 20 61 20 72 65 | still w|ant a re|
|00003150| 70 6f 72 74 3f 22 20 69 | 6e 74 6f 20 70 72 6f 6d |port?" i|nto prom|
|00003160| 70 74 0d 73 68 6f 77 44 | 69 61 6c 6f 67 20 31 2c |pt.showD|ialog 1,|
|00003170| 34 36 39 35 2c 70 72 6f | 6d 70 74 2c 54 52 55 45 |4695,pro|mpt,TRUE|
|00003180| 0d 67 65 74 20 74 68 65 | 20 72 65 73 75 6c 74 0d |.get the| result.|
|00003190| 69 66 20 69 74 20 3d 20 | 34 20 74 68 65 6e 0d 65 |if it = |4 then.e|
|000031a0| 78 69 74 20 74 6f 20 68 | 79 70 65 72 63 61 72 64 |xit to h|ypercard|
|000031b0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 66 61 74 52 |.end if.|end fatR|
|000031c0| 65 70 6f 72 74 0d 0d 6f | 6e 20 73 65 74 4a 6f 62 |eport..o|n setJob|
|000031d0| 4e 75 6d 0d 67 6c 6f 62 | 61 6c 20 74 6b 50 72 65 |Num.glob|al tkPre|
|000031e0| 66 73 0d 69 66 20 6c 69 | 6e 65 20 35 20 6f 66 20 |fs.if li|ne 5 of |
|000031f0| 74 6b 50 72 65 66 73 20 | 3d 20 22 41 75 74 6f 6d |tkPrefs |= "Autom|
|00003200| 61 74 69 63 22 20 6f 72 | 20 6c 69 6e 65 20 35 20 |atic" or| line 5 |
|00003210| 6f 66 20 74 6b 50 72 65 | 66 73 20 3d 20 65 6d 70 |of tkPre|fs = emp|
|00003220| 74 79 20 74 68 65 6e 20 | 70 75 74 20 36 20 69 6e |ty then |put 6 in|
|00003230| 74 6f 20 72 0d 65 6c 73 | 65 20 70 75 74 20 37 20 |to r.els|e put 7 |
|00003240| 69 6e 74 6f 20 72 0d 69 | 66 20 66 6c 64 20 69 64 |into r.i|f fld id|
|00003250| 20 39 20 6f 66 20 63 64 | 20 31 20 3d 20 65 6d 70 | 9 of cd| 1 = emp|
|00003260| 74 79 20 74 68 65 6e 20 | 70 75 74 20 22 31 30 30 |ty then |put "100|
|00003270| 32 22 20 69 6e 74 6f 20 | 6e 0d 65 6c 73 65 20 70 |2" into |n.else p|
|00003280| 75 74 20 66 6c 64 20 69 | 64 20 39 20 69 6e 74 6f |ut fld i|d 9 into|
|00003290| 20 6e 0d 73 68 6f 77 44 | 69 61 6c 6f 67 20 33 2c | n.showD|ialog 3,|
|000032a0| 34 37 34 35 2c 22 22 2c | 22 22 2c 6e 2c 72 0d 70 |4745,"",|"",n,r.p|
|000032b0| 75 74 20 74 68 65 20 72 | 65 73 75 6c 74 20 69 6e |ut the r|esult in|
|000032c0| 74 6f 20 74 68 65 52 65 | 73 75 6c 74 0d 69 66 20 |to theRe|sult.if |
|000032d0| 74 68 65 52 65 73 75 6c | 74 20 3d 20 65 6d 70 74 |theResul|t = empt|
|000032e0| 79 20 74 68 65 6e 20 65 | 78 69 74 20 73 65 74 4a |y then e|xit setJ|
|000032f0| 6f 62 4e 75 6d 0d 69 66 | 20 6c 69 6e 65 20 31 20 |obNum.if| line 1 |
|00003300| 6f 66 20 74 68 65 52 65 | 73 75 6c 74 20 3d 20 37 |of theRe|sult = 7|
|00003310| 20 74 68 65 6e 20 70 75 | 74 20 22 4d 61 6e 75 61 | then pu|t "Manua|
|00003320| 6c 22 20 69 6e 74 6f 20 | 6c 69 6e 65 20 35 20 6f |l" into |line 5 o|
|00003330| 66 20 74 6b 50 72 65 66 | 73 0d 65 6c 73 65 0d 70 |f tkPref|s.else.p|
|00003340| 75 74 20 22 41 75 74 6f | 6d 61 74 69 63 22 20 69 |ut "Auto|matic" i|
|00003350| 6e 74 6f 20 6c 69 6e 65 | 20 35 20 6f 66 20 74 6b |nto line| 5 of tk|
|00003360| 50 72 65 66 73 0d 70 75 | 74 20 6c 69 6e 65 20 32 |Prefs.pu|t line 2|
|00003370| 20 6f 66 20 74 68 65 52 | 65 73 75 6c 74 20 69 6e | of theR|esult in|
|00003380| 74 6f 20 6e 0d 70 75 74 | 20 63 68 65 63 6b 4e 75 |to n.put| checkNu|
|00003390| 6d 62 65 72 28 6e 29 20 | 69 6e 74 6f 20 6e 0d 69 |mber(n) |into n.i|
|000033a0| 66 20 6e 20 3d 20 72 65 | 64 6f 20 74 68 65 6e 0d |f n = re|do then.|
|000033b0| 73 65 74 4a 6f 62 4e 75 | 6d 0d 65 78 69 74 20 73 |setJobNu|m.exit s|
|000033c0| 65 74 4a 6f 62 4e 75 6d | 0d 65 6e 64 20 69 66 0d |etJobNum|.end if.|
|000033d0| 70 75 74 20 72 6f 75 6e | 64 28 6e 29 20 69 6e 74 |put roun|d(n) int|
|000033e0| 6f 20 66 6c 64 20 69 64 | 20 39 20 6f 66 20 63 64 |o fld id| 9 of cd|
|000033f0| 20 31 0d 70 72 65 66 53 | 65 74 0d 65 6e 64 20 69 | 1.prefS|et.end i|
|00003400| 66 0d 65 6e 64 20 73 65 | 74 4a 6f 62 4e 75 6d 0d |f.end se|tJobNum.|
|00003410| 0d 6f 6e 20 6e 75 6d 57 | 61 72 6e 69 6e 67 0d 62 |.on numW|arning.b|
|00003420| 65 65 70 20 6f 6e 65 0d | 73 68 6f 77 44 69 61 6c |eep one.|showDial|
|00003430| 6f 67 20 32 2c 32 39 35 | 31 2c 22 45 6e 74 65 72 |og 2,295|1,"Enter|
|00003440| 20 61 20 76 61 6c 69 64 | 20 6e 75 6d 62 65 72 21 | a valid| number!|
|00003450| 22 2c 22 22 2c 22 22 0d | 65 6e 64 20 6e 75 6d 57 |","","".|end numW|
|00003460| 61 72 6e 69 6e 67 0d 0d | 6f 6e 20 63 68 61 6e 67 |arning..|on chang|
|00003470| 65 54 69 6d 65 0d 67 6c | 6f 62 61 6c 20 74 6b 50 |eTime.gl|obal tkP|
|00003480| 72 65 66 73 0d 69 66 20 | 6c 69 6e 65 20 36 20 6f |refs.if |line 6 o|
|00003490| 66 20 74 6b 50 72 65 66 | 73 20 3d 20 31 30 20 74 |f tkPref|s = 10 t|
|000034a0| 68 65 6e 20 70 75 74 20 | 34 20 69 6e 74 6f 20 61 |hen put |4 into a|
|000034b0| 0d 65 6c 73 65 20 70 75 | 74 20 33 20 69 6e 74 6f |.else pu|t 3 into|
|000034c0| 20 61 0d 73 68 6f 77 44 | 69 61 6c 6f 67 20 33 2c | a.showD|ialog 3,|
|000034d0| 32 39 39 35 38 2c 22 22 | 2c 22 22 2c 22 22 2c 61 |29958,""|,"","",a|
|000034e0| 0d 70 75 74 20 74 68 65 | 20 72 65 73 75 6c 74 20 |.put the| result |
|000034f0| 69 6e 74 6f 20 74 68 65 | 52 65 73 75 6c 74 0d 69 |into the|Result.i|
|00003500| 66 20 74 68 65 52 65 73 | 75 6c 74 20 3d 20 65 6d |f theRes|ult = em|
|00003510| 70 74 79 20 74 68 65 6e | 20 65 78 69 74 20 63 68 |pty then| exit ch|
|00003520| 61 6e 67 65 54 69 6d 65 | 0d 69 66 20 6c 69 6e 65 |angeTime|.if line|
|00003530| 20 31 20 6f 66 20 74 68 | 65 52 65 73 75 6c 74 20 | 1 of th|eResult |
|00003540| 3d 20 33 20 74 68 65 6e | 20 70 75 74 20 34 20 69 |= 3 then| put 4 i|
|00003550| 6e 74 6f 20 6c 69 6e 65 | 20 36 20 6f 66 20 74 6b |nto line| 6 of tk|
|00003560| 50 72 65 66 73 0d 65 6c | 73 65 20 70 75 74 20 31 |Prefs.el|se put 1|
|00003570| 30 20 69 6e 74 6f 20 6c | 69 6e 65 20 36 20 6f 66 |0 into l|ine 6 of|
|00003580| 20 74 6b 50 72 65 66 73 | 0d 70 72 65 66 53 65 74 | tkPrefs|.prefSet|
|00003590| 0d 65 6e 64 20 63 68 61 | 6e 67 65 54 69 6d 65 0d |.end cha|ngeTime.|
|000035a0| 0d 6f 6e 20 73 65 74 57 | 61 72 6e 69 6e 67 73 0d |.on setW|arnings.|
|000035b0| 67 6c 6f 62 61 6c 20 74 | 68 65 52 65 73 75 6c 74 |global t|heResult|
|000035c0| 2c 6d 69 6e 2c 74 6b 50 | 72 65 66 73 0d 70 75 74 |,min,tkP|refs.put|
|000035d0| 20 6c 69 6e 65 20 38 20 | 6f 66 20 74 6b 50 72 65 | line 8 |of tkPre|
|000035e0| 66 73 20 69 6e 74 6f 20 | 6d 69 6e 0d 69 66 20 6c |fs into |min.if l|
|000035f0| 69 6e 65 20 37 20 6f 66 | 20 74 6b 50 72 65 66 73 |ine 7 of| tkPrefs|
|00003600| 20 3d 20 22 54 72 75 65 | 22 20 74 68 65 6e 20 70 | = "True|" then p|
|00003610| 75 74 20 34 20 69 6e 74 | 6f 20 72 0d 65 6c 73 65 |ut 4 int|o r.else|
|00003620| 20 70 75 74 20 35 20 69 | 6e 74 6f 20 72 0d 73 68 | put 5 i|nto r.sh|
|00003630| 6f 77 44 69 61 6c 6f 67 | 20 33 2c 31 32 39 30 2c |owDialog| 3,1290,|
|00003640| 22 57 61 72 6e 20 6d 65 | 20 69 66 20 49 20 68 61 |"Warn me| if I ha|
|00003650| 76 65 20 6c 65 73 73 20 | 74 68 61 6e 3a 22 2c 22 |ve less |than:","|
|00003660| 68 6f 75 72 73 2e 22 2c | 6d 69 6e 2c 72 0d 70 75 |hours.",|min,r.pu|
|00003670| 74 20 74 68 65 20 72 65 | 73 75 6c 74 20 69 6e 74 |t the re|sult int|
|00003680| 6f 20 74 68 65 52 65 73 | 75 6c 74 0d 69 66 20 74 |o theRes|ult.if t|
|00003690| 68 65 52 65 73 75 6c 74 | 20 3d 20 65 6d 70 74 79 |heResult| = empty|
|000036a0| 20 74 68 65 6e 20 65 78 | 69 74 20 73 65 74 57 61 | then ex|it setWa|
|000036b0| 72 6e 69 6e 67 73 0d 65 | 6c 73 65 0d 69 66 20 6c |rnings.e|lse.if l|
|000036c0| 69 6e 65 20 31 20 6f 66 | 20 74 68 65 52 65 73 75 |ine 1 of| theResu|
|000036d0| 6c 74 20 3d 20 34 20 74 | 68 65 6e 0d 69 66 20 6c |lt = 4 t|hen.if l|
|000036e0| 69 6e 65 20 32 20 6f 66 | 20 74 68 65 52 65 73 75 |ine 2 of| theResu|
|000036f0| 6c 74 20 3d 20 65 6d 70 | 74 79 20 74 68 65 6e 0d |lt = emp|ty then.|
|00003700| 70 75 74 20 22 66 61 6c | 73 65 22 20 69 6e 74 6f |put "fal|se" into|
|00003710| 20 6c 69 6e 65 20 37 20 | 6f 66 20 74 6b 50 72 65 | line 7 |of tkPre|
|00003720| 66 73 0d 65 6c 73 65 0d | 70 75 74 20 6c 69 6e 65 |fs.else.|put line|
|00003730| 20 32 20 6f 66 20 74 68 | 65 52 65 73 75 6c 74 20 | 2 of th|eResult |
|00003740| 69 6e 74 6f 20 6e 0d 70 | 75 74 20 63 68 65 63 6b |into n.p|ut check|
|00003750| 4e 75 6d 62 65 72 28 6e | 29 20 69 6e 74 6f 20 6e |Number(n|) into n|
|00003760| 0d 69 66 20 6e 20 3d 20 | 72 65 64 6f 20 74 68 65 |.if n = |redo the|
|00003770| 6e 0d 73 65 74 57 61 72 | 6e 69 6e 67 73 0d 65 78 |n.setWar|nings.ex|
|00003780| 69 74 20 73 65 74 57 61 | 72 6e 69 6e 67 73 0d 65 |it setWa|rnings.e|
|00003790| 6e 64 20 69 66 0d 70 75 | 74 20 22 74 72 75 65 22 |nd if.pu|t "true"|
|000037a0| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 37 20 6f 66 20 | into li|ne 7 of |
|000037b0| 74 6b 50 72 65 66 73 0d | 70 75 74 20 6e 20 69 6e |tkPrefs.|put n in|
|000037c0| 74 6f 20 6c 69 6e 65 20 | 38 20 6f 66 20 74 6b 50 |to line |8 of tkP|
|000037d0| 72 65 66 73 0d 65 6e 64 | 20 69 66 0d 65 6c 73 65 |refs.end| if.else|
|000037e0| 0d 70 75 74 20 22 66 61 | 6c 73 65 22 20 69 6e 74 |.put "fa|lse" int|
|000037f0| 6f 20 6c 69 6e 65 20 37 | 20 6f 66 20 74 6b 50 72 |o line 7| of tkPr|
|00003800| 65 66 73 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |efs.end |if.end i|
|00003810| 66 0d 70 72 65 66 53 65 | 74 0d 65 6e 64 20 73 65 |f.prefSe|t.end se|
|00003820| 74 57 61 72 6e 69 6e 67 | 73 0d 0d 6f 6e 20 73 70 |tWarning|s..on sp|
|00003830| 65 63 46 6c 64 53 65 74 | 75 70 0d 67 6c 6f 62 61 |ecFldSet|up.globa|
|00003840| 6c 20 74 68 65 52 65 73 | 75 6c 74 2c 74 6b 50 72 |l theRes|ult,tkPr|
|00003850| 65 66 73 0d 70 75 74 20 | 74 68 65 20 73 68 6f 72 |efs.put |the shor|
|00003860| 74 20 69 64 20 6f 66 20 | 63 64 20 31 20 6f 66 20 |t id of |cd 1 of |
|00003870| 62 67 20 41 72 63 68 69 | 76 65 20 69 6e 74 6f 20 |bg Archi|ve into |
|00003880| 61 0d 70 75 74 20 74 68 | 65 20 73 68 6f 72 74 20 |a.put th|e short |
|00003890| 69 64 20 6f 66 20 63 64 | 20 31 20 6f 66 20 62 67 |id of cd| 1 of bg|
|000038a0| 20 69 64 20 36 31 38 32 | 20 69 6e 74 6f 20 62 0d | id 6182| into b.|
|000038b0| 70 75 74 20 74 68 65 20 | 73 68 6f 72 74 20 69 64 |put the |short id|
|000038c0| 20 6f 66 20 63 64 20 31 | 20 6f 66 20 62 67 20 69 | of cd 1| of bg i|
|000038d0| 64 20 35 34 34 39 20 69 | 6e 74 6f 20 63 0d 69 66 |d 5449 i|nto c.if|
|000038e0| 20 6c 69 6e 65 20 39 20 | 6f 66 20 74 6b 50 72 65 | line 9 |of tkPre|
|000038f0| 66 73 20 3d 20 22 54 72 | 75 65 22 20 74 68 65 6e |fs = "Tr|ue" then|
|00003900| 20 70 75 74 20 35 20 69 | 6e 74 6f 20 72 0d 65 6c | put 5 i|nto r.el|
|00003910| 73 65 20 70 75 74 20 36 | 20 69 6e 74 6f 20 72 0d |se put 6| into r.|
|00003920| 73 68 6f 77 44 69 61 6c | 6f 67 20 33 2c 34 37 34 |showDial|og 3,474|
|00003930| 33 2c 22 50 72 6f 6d 70 | 74 20 73 74 72 69 6e 67 |3,"Promp|t string|
|00003940| 3a 22 2c 22 46 69 65 6c | 64 20 6c 61 62 65 6c 3a |:","Fiel|d label:|
|00003950| 22 2c 6c 69 6e 65 20 31 | 30 20 6f 66 20 74 6b 50 |",line 1|0 of tkP|
|00003960| 72 65 66 73 2c 72 0d 70 | 75 74 20 74 68 65 20 72 |refs,r.p|ut the r|
|00003970| 65 73 75 6c 74 20 69 6e | 74 6f 20 74 68 65 52 65 |esult in|to theRe|
|00003980| 73 75 6c 74 0d 69 66 20 | 6c 69 6e 65 20 31 20 6f |sult.if |line 1 o|
|00003990| 66 20 74 68 65 52 65 73 | 75 6c 74 20 3d 20 31 20 |f theRes|ult = 1 |
|000039a0| 74 68 65 6e 20 65 78 69 | 74 20 73 70 65 63 46 6c |then exi|t specFl|
|000039b0| 64 53 65 74 75 70 0d 65 | 6c 73 65 0d 69 66 20 6c |dSetup.e|lse.if l|
|000039c0| 69 6e 65 20 31 20 6f 66 | 20 74 68 65 52 65 73 75 |ine 1 of| theResu|
|000039d0| 6c 74 20 3d 20 36 20 74 | 68 65 6e 0d 70 75 74 20 |lt = 6 t|hen.put |
|000039e0| 22 66 61 6c 73 65 22 20 | 69 6e 74 6f 20 6c 69 6e |"false" |into lin|
|000039f0| 65 20 39 20 6f 66 20 74 | 6b 50 72 65 66 73 0d 70 |e 9 of t|kPrefs.p|
|00003a00| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 6c 69 |ut empty| into li|
|00003a10| 6e 65 20 31 30 20 6f 66 | 20 74 6b 50 72 65 66 73 |ne 10 of| tkPrefs|
|00003a20| 0d 68 69 64 65 20 66 6c | 64 20 69 64 20 31 30 20 |.hide fl|d id 10 |
|00003a30| 6f 66 20 63 64 20 69 64 | 20 63 0d 68 69 64 65 20 |of cd id| c.hide |
|00003a40| 66 6c 64 20 69 64 20 31 | 30 20 6f 66 20 63 64 20 |fld id 1|0 of cd |
|00003a50| 69 64 20 61 0d 68 69 64 | 65 20 66 6c 64 20 69 64 |id a.hid|e fld id|
|00003a60| 20 39 20 6f 66 20 63 64 | 20 69 64 20 62 0d 73 65 | 9 of cd| id b.se|
|00003a70| 74 20 6e 61 6d 65 20 6f | 66 20 62 67 20 62 74 6e |t name o|f bg btn|
|00003a80| 20 69 64 20 34 36 20 6f | 66 20 63 64 20 69 64 20 | id 46 o|f cd id |
|00003a90| 63 20 74 6f 20 65 6d 70 | 74 79 20 2d 2d 20 66 69 |c to emp|ty -- fi|
|00003aa0| 65 6c 64 20 6c 61 62 65 | 6c 0d 73 65 74 20 6e 61 |eld labe|l.set na|
|00003ab0| 6d 65 20 6f 66 20 62 67 | 20 62 74 6e 20 69 64 20 |me of bg| btn id |
|00003ac0| 34 36 20 6f 66 20 63 64 | 20 69 64 20 61 20 74 6f |46 of cd| id a to|
|00003ad0| 20 65 6d 70 74 79 20 2d | 2d 20 66 69 65 6c 64 20 | empty -|- field |
|00003ae0| 6c 61 62 65 6c 0d 73 65 | 74 20 6e 61 6d 65 20 6f |label.se|t name o|
|00003af0| 66 20 62 67 20 62 74 6e | 20 69 64 20 31 30 20 6f |f bg btn| id 10 o|
|00003b00| 66 20 63 64 20 69 64 20 | 62 20 74 6f 20 65 6d 70 |f cd id |b to emp|
|00003b10| 74 79 20 2d 2d 20 66 69 | 65 6c 64 20 6c 61 62 65 |ty -- fi|eld labe|
|00003b20| 6c 0d 65 6c 73 65 0d 69 | 66 20 6c 69 6e 65 20 31 |l.else.i|f line 1|
|00003b30| 20 6f 66 20 74 68 65 52 | 65 73 75 6c 74 20 3d 20 | of theR|esult = |
|00003b40| 35 20 74 68 65 6e 0d 69 | 66 20 6c 69 6e 65 20 32 |5 then.i|f line 2|
|00003b50| 20 6f 66 20 74 68 65 52 | 65 73 75 6c 74 20 ad 20 | of theR|esult . |
|00003b60| 65 6d 70 74 79 20 61 6e | 64 20 6c 69 6e 65 20 33 |empty an|d line 3|
|00003b70| 20 6f 66 20 74 68 65 52 | 65 73 75 6c 74 20 ad 20 | of theR|esult . |
|00003b80| 65 6d 70 74 79 20 74 68 | 65 6e 0d 70 75 74 20 22 |empty th|en.put "|
|00003b90| 74 72 75 65 22 20 69 6e | 74 6f 20 6c 69 6e 65 20 |true" in|to line |
|00003ba0| 39 20 6f 66 20 74 6b 50 | 72 65 66 73 0d 73 68 6f |9 of tkP|refs.sho|
|00003bb0| 77 20 66 6c 64 20 69 64 | 20 31 30 20 6f 66 20 63 |w fld id| 10 of c|
|00003bc0| 64 20 69 64 20 63 0d 73 | 68 6f 77 20 66 6c 64 20 |d id c.s|how fld |
|00003bd0| 69 64 20 31 30 20 6f 66 | 20 63 64 20 69 64 20 61 |id 10 of| cd id a|
|00003be0| 0d 73 68 6f 77 20 66 6c | 64 20 69 64 20 39 20 6f |.show fl|d id 9 o|
|00003bf0| 66 20 63 64 20 69 64 20 | 62 0d 69 66 20 74 68 65 |f cd id |b.if the|
|00003c00| 20 6c 61 73 74 20 63 68 | 61 72 20 6f 66 20 6c 69 | last ch|ar of li|
|00003c10| 6e 65 20 33 20 6f 66 20 | 74 68 65 52 65 73 75 6c |ne 3 of |theResul|
|00003c20| 74 20 ad 20 22 3a 22 20 | 74 68 65 6e 20 c2 0d 70 |t . ":" |then ..p|
|00003c30| 75 74 20 6c 69 6e 65 20 | 33 20 6f 66 20 74 68 65 |ut line |3 of the|
|00003c40| 52 65 73 75 6c 74 20 26 | 20 22 3a 22 20 69 6e 74 |Result &| ":" int|
|00003c50| 6f 20 6c 61 62 65 6c 4e | 61 6d 65 0d 73 65 74 20 |o labelN|ame.set |
|00003c60| 6e 61 6d 65 20 6f 66 20 | 62 67 20 62 74 6e 20 69 |name of |bg btn i|
|00003c70| 64 20 34 36 20 6f 66 20 | 63 64 20 69 64 20 63 20 |d 46 of |cd id c |
|00003c80| 74 6f 20 6c 61 62 65 6c | 4e 61 6d 65 20 2d 2d 20 |to label|Name -- |
|00003c90| 66 69 65 6c 64 20 6c 61 | 62 65 6c 0d 73 65 74 20 |field la|bel.set |
|00003ca0| 6e 61 6d 65 20 6f 66 20 | 62 67 20 62 74 6e 20 69 |name of |bg btn i|
|00003cb0| 64 20 34 36 20 6f 66 20 | 63 64 20 69 64 20 61 20 |d 46 of |cd id a |
|00003cc0| 74 6f 20 6c 61 62 65 6c | 4e 61 6d 65 20 2d 2d 20 |to label|Name -- |
|00003cd0| 66 69 65 6c 64 20 6c 61 | 62 65 6c 0d 73 65 74 20 |field la|bel.set |
|00003ce0| 6e 61 6d 65 20 6f 66 20 | 62 67 20 62 74 6e 20 69 |name of |bg btn i|
|00003cf0| 64 20 31 30 20 6f 66 20 | 63 64 20 69 64 20 62 20 |d 10 of |cd id b |
|00003d00| 74 6f 20 6c 61 62 65 6c | 4e 61 6d 65 20 2d 2d 20 |to label|Name -- |
|00003d10| 66 69 65 6c 64 20 6c 61 | 62 65 6c 0d 70 75 74 20 |field la|bel.put |
|00003d20| 6c 61 62 65 6c 4e 61 6d | 65 20 69 6e 74 6f 20 6c |labelNam|e into l|
|00003d30| 69 6e 65 20 31 31 20 6f | 66 20 74 6b 50 72 65 66 |ine 11 o|f tkPref|
|00003d40| 73 0d 70 75 74 20 6c 69 | 6e 65 20 32 20 6f 66 20 |s.put li|ne 2 of |
|00003d50| 74 68 65 52 65 73 75 6c | 74 20 69 6e 74 6f 20 6c |theResul|t into l|
|00003d60| 69 6e 65 20 31 30 20 6f | 66 20 74 6b 50 72 65 66 |ine 10 o|f tkPref|
|00003d70| 73 20 2d 2d 20 64 69 61 | 6c 6f 67 75 65 20 70 72 |s -- dia|logue pr|
|00003d80| 6f 6d 70 74 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |ompt.end| if.end |
|00003d90| 69 66 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |if.end i|f.end if|
|00003da0| 0d 70 72 65 66 53 65 74 | 0d 65 6e 64 20 73 70 65 |.prefSet|.end spe|
|00003db0| 63 46 6c 64 53 65 74 75 | 70 0d 0d 6f 6e 20 61 62 |cFldSetu|p..on ab|
|00003dc0| 6f 75 74 4d 65 0d 73 68 | 6f 77 44 69 61 6c 6f 67 |outMe.sh|owDialog|
|00003dd0| 20 31 2c 34 37 34 39 2c | 22 22 2c 54 52 55 45 0d | 1,4749,|"",TRUE.|
|00003de0| 69 66 20 74 68 65 20 72 | 65 73 75 6c 74 20 3d 20 |if the r|esult = |
|00003df0| 32 20 74 68 65 6e 20 65 | 78 69 74 20 61 62 6f 75 |2 then e|xit abou|
|00003e00| 74 4d 65 0d 65 6c 73 65 | 20 68 65 6c 70 4d 65 0d |tMe.else| helpMe.|
|00003e10| 65 6e 64 20 61 62 6f 75 | 74 4d 65 0d 0d 6f 6e 20 |end abou|tMe..on |
|00003e20| 68 65 6c 70 4d 65 0d 6c | 6f 63 6b 20 73 63 72 65 |helpMe.l|ock scre|
|00003e30| 65 6e 0d 67 6f 20 63 64 | 20 31 0d 73 68 6f 77 20 |en.go cd| 1.show |
|00003e40| 66 6c 64 20 69 64 20 36 | 38 0d 73 68 6f 77 20 66 |fld id 6|8.show f|
|00003e50| 6c 64 20 69 64 20 36 39 | 0d 73 68 6f 77 20 66 6c |ld id 69|.show fl|
|00003e60| 64 20 69 64 20 37 30 0d | 73 68 6f 77 20 62 67 20 |d id 70.|show bg |
|00003e70| 62 74 6e 20 69 64 20 37 | 33 0d 73 68 6f 77 20 62 |btn id 7|3.show b|
|00003e80| 67 20 62 74 6e 20 69 64 | 20 37 34 0d 69 66 20 74 |g btn id| 74.if t|
|00003e90| 68 65 72 65 20 69 73 20 | 61 20 77 69 6e 64 6f 77 |here is |a window|
|00003ea0| 20 22 73 65 63 74 4e 61 | 76 22 0d 74 68 65 6e 20 | "sectNa|v".then |
|00003eb0| 68 69 64 65 20 77 69 6e | 64 6f 77 20 22 73 65 63 |hide win|dow "sec|
|00003ec0| 74 4e 61 76 22 0d 64 69 | 73 61 62 6c 65 20 6d 65 |tNav".di|sable me|
|00003ed0| 6e 75 20 22 54 69 6d 65 | 43 61 63 68 65 22 0d 64 |nu "Time|Cache".d|
|00003ee0| 69 73 61 62 6c 65 20 6d | 65 6e 75 20 47 6f 0d 64 |isable m|enu Go.d|
|00003ef0| 69 73 61 62 6c 65 20 6d | 65 6e 75 20 45 64 69 74 |isable m|enu Edit|
|00003f00| 0d 64 69 73 61 62 6c 65 | 20 6d 65 6e 75 20 46 69 |.disable| menu Fi|
|00003f10| 6c 65 0d 75 6e 6c 6f 63 | 6b 20 73 63 72 65 65 6e |le.unloc|k screen|
|00003f20| 0d 65 6e 64 20 68 65 6c | 70 4d 65 0d 0d 6f 6e 20 |.end hel|pMe..on |
|00003f30| 68 69 64 65 48 65 6c 70 | 0d 6c 6f 63 6b 20 73 63 |hideHelp|.lock sc|
|00003f40| 72 65 65 6e 0d 68 69 64 | 65 20 66 6c 64 20 69 64 |reen.hid|e fld id|
|00003f50| 20 36 38 20 6f 66 20 63 | 64 20 31 0d 68 69 64 65 | 68 of c|d 1.hide|
|00003f60| 20 66 6c 64 20 69 64 20 | 36 39 20 6f 66 20 63 64 | fld id |69 of cd|
|00003f70| 20 31 0d 68 69 64 65 20 | 66 6c 64 20 69 64 20 37 | 1.hide |fld id 7|
|00003f80| 30 20 6f 66 20 63 64 20 | 31 0d 68 69 64 65 20 66 |0 of cd |1.hide f|
|00003f90| 6c 64 20 69 64 20 37 31 | 20 6f 66 20 63 64 20 31 |ld id 71| of cd 1|
|00003fa0| 0d 68 69 64 65 20 66 6c | 64 20 69 64 20 37 32 20 |.hide fl|d id 72 |
|00003fb0| 6f 66 20 63 64 20 31 0d | 68 69 64 65 20 62 67 20 |of cd 1.|hide bg |
|00003fc0| 62 74 6e 20 69 64 20 37 | 33 20 6f 66 20 63 64 20 |btn id 7|3 of cd |
|00003fd0| 31 0d 68 69 64 65 20 62 | 67 20 62 74 6e 20 69 64 |1.hide b|g btn id|
|00003fe0| 20 37 34 20 6f 66 20 63 | 64 20 31 0d 73 65 74 20 | 74 of c|d 1.set |
|00003ff0| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 62 67 20 62 |the name| of bg b|
|00004000| 74 6e 20 69 64 20 37 33 | 20 6f 66 20 63 64 20 31 |tn id 73| of cd 1|
|00004010| 20 74 6f 20 22 53 68 6f | 77 20 d2 4d 65 6e 75 d3 | to "Sho|w .Menu.|
|00004020| 20 48 65 6c 70 22 0d 65 | 6e 61 62 6c 65 20 6d 65 | Help".e|nable me|
|00004030| 6e 75 20 22 54 69 6d 65 | 43 61 63 68 65 22 0d 65 |nu "Time|Cache".e|
|00004040| 6e 61 62 6c 65 20 6d 65 | 6e 75 20 47 6f 0d 65 6e |nable me|nu Go.en|
|00004050| 61 62 6c 65 20 6d 65 6e | 75 20 45 64 69 74 0d 65 |able men|u Edit.e|
|00004060| 6e 61 62 6c 65 20 6d 65 | 6e 75 20 46 69 6c 65 0d |nable me|nu File.|
|00004070| 69 66 20 74 68 65 72 65 | 20 69 73 20 61 20 77 69 |if there| is a wi|
|00004080| 6e 64 6f 77 20 22 73 65 | 63 74 4e 61 76 22 0d 74 |ndow "se|ctNav".t|
|00004090| 68 65 6e 20 73 68 6f 77 | 20 77 69 6e 64 6f 77 20 |hen show| window |
|000040a0| 22 73 65 63 74 4e 61 76 | 22 0d 75 6e 6c 6f 63 6b |"sectNav|".unlock|
|000040b0| 20 73 63 72 65 65 6e 0d | 73 65 74 20 74 68 65 20 | screen.|set the |
|000040c0| 73 63 72 6f 6c 6c 20 6f | 66 20 66 6c 64 20 69 64 |scroll o|f fld id|
|000040d0| 20 36 39 20 74 6f 20 30 | 0d 73 65 74 20 74 68 65 | 69 to 0|.set the|
|000040e0| 20 73 63 72 6f 6c 6c 20 | 6f 66 20 66 6c 64 20 69 | scroll |of fld i|
|000040f0| 64 20 37 30 20 74 6f 20 | 30 0d 73 65 74 20 74 68 |d 70 to |0.set th|
|00004100| 65 20 73 63 72 6f 6c 6c | 20 6f 66 20 66 6c 64 20 |e scroll| of fld |
|00004110| 69 64 20 37 31 20 74 6f | 20 30 0d 73 65 74 20 74 |id 71 to| 0.set t|
|00004120| 68 65 20 73 63 72 6f 6c | 6c 20 6f 66 20 66 6c 64 |he scrol|l of fld|
|00004130| 20 69 64 20 37 32 20 74 | 6f 20 30 0d 65 6e 64 20 | id 72 t|o 0.end |
|00004140| 68 69 64 65 48 65 6c 70 | 0d 0d 6f 6e 20 68 6f 77 |hideHelp|..on how|
|00004150| 54 6f 48 65 6c 70 0d 6c | 6f 63 6b 20 73 63 72 65 |ToHelp.l|ock scre|
|00004160| 65 6e 0d 68 69 64 65 20 | 66 6c 64 20 69 64 20 37 |en.hide |fld id 7|
|00004170| 31 0d 68 69 64 65 20 66 | 6c 64 20 69 64 20 37 32 |1.hide f|ld id 72|
|00004180| 0d 73 68 6f 77 20 66 6c | 64 20 69 64 20 36 39 0d |.show fl|d id 69.|
|00004190| 73 68 6f 77 20 66 6c 64 | 20 69 64 20 37 30 0d 73 |show fld| id 70.s|
|000041a0| 65 74 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 62 |et the n|ame of b|
|000041b0| 67 20 62 74 6e 20 69 64 | 20 37 33 20 74 6f 20 22 |g btn id| 73 to "|
|000041c0| 53 68 6f 77 20 d2 4d 65 | 6e 75 d3 20 48 65 6c 70 |Show .Me|nu. Help|
|000041d0| 22 0d 65 6e 64 20 68 6f | 77 54 6f 48 65 6c 70 0d |".end ho|wToHelp.|
|000041e0| 0d 6f 6e 20 6d 65 6e 75 | 48 65 6c 70 0d 6c 6f 63 |.on menu|Help.loc|
|000041f0| 6b 20 73 63 72 65 65 6e | 0d 68 69 64 65 20 66 6c |k screen|.hide fl|
|00004200| 64 20 69 64 20 36 39 0d | 68 69 64 65 20 66 6c 64 |d id 69.|hide fld|
|00004210| 20 69 64 20 37 30 0d 73 | 68 6f 77 20 66 6c 64 20 | id 70.s|how fld |
|00004220| 69 64 20 37 31 0d 73 68 | 6f 77 20 66 6c 64 20 69 |id 71.sh|ow fld i|
|00004230| 64 20 37 32 0d 73 65 74 | 20 74 68 65 20 6e 61 6d |d 72.set| the nam|
|00004240| 65 20 6f 66 20 62 67 20 | 62 74 6e 20 69 64 20 37 |e of bg |btn id 7|
|00004250| 33 20 74 6f 20 22 53 68 | 6f 77 20 d2 48 6f 77 2d |3 to "Sh|ow .How-|
|00004260| 74 6f d3 20 48 65 6c 70 | 22 0d 65 6e 64 20 6d 65 |to. Help|".end me|
|00004270| 6e 75 48 65 6c 70 0d 0d | 6f 6e 20 69 6e 76 61 6c |nuHelp..|on inval|
|00004280| 69 44 61 74 65 0d 62 65 | 65 70 0d 73 68 6f 77 44 |iDate.be|ep.showD|
|00004290| 69 61 6c 6f 67 20 31 2c | 34 36 39 35 2c 22 59 6f |ialog 1,|4695,"Yo|
|000042a0| 75 20 6d 75 73 74 20 75 | 73 65 20 74 68 65 20 70 |u must u|se the p|
|000042b0| 72 6f 70 65 72 20 64 61 | 74 65 20 66 6f 72 6d 61 |roper da|te forma|
|000042c0| 74 21 22 2c 54 52 55 45 | 0d 65 6e 64 20 69 6e 76 |t!",TRUE|.end inv|
|000042d0| 61 6c 69 44 61 74 65 0d | 0d 6f 6e 20 73 73 20 78 |aliDate.|.on ss x|
|000042e0| 0d 65 78 69 74 20 73 73 | 0d 65 6e 64 20 73 73 0d |.exit ss|.end ss.|
|000042f0| 0d 6f 6e 20 73 65 61 72 | 63 68 53 63 72 69 70 74 |.on sear|chScript|
|00004300| 20 78 0d 65 78 69 74 20 | 73 65 61 72 63 68 53 63 | x.exit |searchSc|
|00004310| 72 69 70 74 0d 65 6e 64 | 20 73 65 61 72 63 68 53 |ript.end| searchS|
|00004320| 63 72 69 70 74 0d 0d 6f | 6e 20 73 65 74 41 75 74 |cript..o|n setAut|
|00004330| 6f 0d 67 6c 6f 62 61 6c | 20 74 6b 50 72 65 66 73 |o.global| tkPrefs|
|00004340| 0d 69 66 20 6c 69 6e 65 | 20 31 37 20 6f 66 20 74 |.if line| 17 of t|
|00004350| 6b 50 72 65 66 73 20 3d | 20 65 6d 70 74 79 20 74 |kPrefs =| empty t|
|00004360| 68 65 6e 20 70 75 74 20 | 36 20 69 6e 74 6f 20 72 |hen put |6 into r|
|00004370| 0d 65 6c 73 65 20 70 75 | 74 20 6c 69 6e 65 20 31 |.else pu|t line 1|
|00004380| 37 20 6f 66 20 74 6b 50 | 72 65 66 73 20 69 6e 74 |7 of tkP|refs int|
|00004390| 6f 20 72 0d 73 68 6f 77 | 44 69 61 6c 6f 67 20 33 |o r.show|Dialog 3|
|000043a0| 2c 31 32 39 31 2c 22 41 | 75 74 6f 6d 61 74 69 63 |,1291,"A|utomatic|
|000043b0| 61 6c 6c 79 20 63 72 65 | 61 74 65 20 44 61 69 6c |ally cre|ate Dail|
|000043c0| 79 20 54 69 6d 65 73 68 | 65 65 74 73 20 61 66 74 |y Timesh|eets aft|
|000043d0| 65 72 20 74 72 61 6e 73 | 66 65 72 72 69 6e 67 20 |er trans|ferring |
|000043e0| 65 6e 74 72 69 65 73 3f | 22 2c 2c 2c 72 0d 70 75 |entries?|",,,r.pu|
|000043f0| 74 20 6c 69 6e 65 20 31 | 20 6f 66 20 74 68 65 20 |t line 1| of the |
|00004400| 72 65 73 75 6c 74 20 69 | 6e 74 6f 20 74 68 65 52 |result i|nto theR|
|00004410| 65 73 75 6c 74 0d 69 66 | 20 74 68 65 52 65 73 75 |esult.if| theResu|
|00004420| 6c 74 20 3d 20 65 6d 70 | 74 79 20 74 68 65 6e 20 |lt = emp|ty then |
|00004430| 65 78 69 74 20 73 65 74 | 41 75 74 6f 0d 70 75 74 |exit set|Auto.put|
|00004440| 20 74 68 65 52 65 73 75 | 6c 74 20 69 6e 74 6f 20 | theResu|lt into |
|00004450| 6c 69 6e 65 20 31 37 20 | 6f 66 20 74 6b 50 72 65 |line 17 |of tkPre|
|00004460| 66 73 0d 70 72 65 66 53 | 65 74 0d 65 6e 64 20 73 |fs.prefS|et.end s|
|00004470| 65 74 41 75 74 6f 0d 0d | 6f 6e 20 65 78 70 6f 72 |etAuto..|on expor|
|00004480| 74 46 6f 72 6d 61 74 0d | 67 6c 6f 62 61 6c 20 74 |tFormat.|global t|
|00004490| 6b 50 72 65 66 73 0d 69 | 66 20 6c 69 6e 65 20 31 |kPrefs.i|f line 1|
|000044a0| 32 20 6f 66 20 74 6b 50 | 72 65 66 73 20 3d 20 65 |2 of tkP|refs = e|
|000044b0| 6d 70 74 79 20 74 68 65 | 6e 20 70 75 74 20 35 20 |mpty the|n put 5 |
|000044c0| 69 6e 74 6f 20 72 0d 65 | 6c 73 65 20 70 75 74 20 |into r.e|lse put |
|000044d0| 6c 69 6e 65 20 31 32 20 | 6f 66 20 74 6b 50 72 65 |line 12 |of tkPre|
|000044e0| 66 73 20 69 6e 74 6f 20 | 72 0d 73 68 6f 77 44 69 |fs into |r.showDi|
|000044f0| 61 6c 6f 67 20 33 2c 31 | 32 39 35 2c 22 53 65 6c |alog 3,1|295,"Sel|
|00004500| 65 63 74 20 61 20 66 6f | 72 6d 61 74 20 66 6f 72 |ect a fo|rmat for|
|00004510| 20 65 78 70 6f 72 74 65 | 64 20 4a 6f 62 20 53 68 | exporte|d Job Sh|
|00004520| 65 65 74 20 72 65 70 6f | 72 74 73 22 2c 2c 2c 72 |eet repo|rts",,,r|
|00004530| 0d 67 65 74 20 74 68 65 | 20 72 65 73 75 6c 74 0d |.get the| result.|
|00004540| 69 66 20 69 74 20 3d 20 | 65 6d 70 74 79 20 74 68 |if it = |empty th|
|00004550| 65 6e 20 65 78 69 74 20 | 74 6f 20 68 79 70 65 72 |en exit |to hyper|
|00004560| 63 61 72 64 0d 70 75 74 | 20 6c 69 6e 65 20 31 20 |card.put| line 1 |
|00004570| 6f 66 20 69 74 20 69 6e | 74 6f 20 6c 69 6e 65 20 |of it in|to line |
|00004580| 31 32 20 6f 66 20 74 6b | 50 72 65 66 73 0d 70 72 |12 of tk|Prefs.pr|
|00004590| 65 66 53 65 74 0d 65 6e | 64 20 65 78 70 6f 72 74 |efSet.en|d export|
|000045a0| 46 6f 72 6d 61 74 0d 0d | 6f 6e 20 73 65 74 43 6f |Format..|on setCo|
|000045b0| 6d 6d 65 6e 74 73 0d 67 | 6c 6f 62 61 6c 20 74 6b |mments.g|lobal tk|
|000045c0| 50 72 65 66 73 2c 74 68 | 65 52 65 73 75 6c 74 0d |Prefs,th|eResult.|
|000045d0| 69 66 20 6c 69 6e 65 20 | 31 36 20 6f 66 20 74 6b |if line |16 of tk|
|000045e0| 50 72 65 66 73 20 3d 20 | 46 61 6c 73 65 20 6f 72 |Prefs = |False or|
|000045f0| 20 6c 69 6e 65 20 31 36 | 20 6f 66 20 74 6b 50 72 | line 16| of tkPr|
|00004600| 65 66 73 20 3d 20 65 6d | 70 74 79 20 74 68 65 6e |efs = em|pty then|
|00004610| 20 70 75 74 20 35 20 69 | 6e 74 6f 20 72 0d 65 6c | put 5 i|nto r.el|
|00004620| 73 65 20 70 75 74 20 34 | 20 69 6e 74 6f 20 72 0d |se put 4| into r.|
|00004630| 73 68 6f 77 44 69 61 6c | 6f 67 20 33 2c 31 32 39 |showDial|og 3,129|
|00004640| 32 2c 22 55 73 65 20 6c | 6f 6e 67 20 63 6f 6d 6d |2,"Use l|ong comm|
|00004650| 65 6e 74 73 3f 22 2c 2c | 2c 72 0d 70 75 74 20 74 |ents?",,|,r.put t|
|00004660| 68 65 20 72 65 73 75 6c | 74 20 69 6e 74 6f 20 74 |he resul|t into t|
|00004670| 68 65 52 65 73 75 6c 74 | 0d 69 66 20 74 68 65 52 |heResult|.if theR|
|00004680| 65 73 75 6c 74 20 3d 20 | 65 6d 70 74 79 20 74 68 |esult = |empty th|
|00004690| 65 6e 20 65 78 69 74 20 | 73 65 74 43 6f 6d 6d 65 |en exit |setComme|
|000046a0| 6e 74 73 0d 65 6c 73 65 | 0d 69 66 20 6c 69 6e 65 |nts.else|.if line|
|000046b0| 20 31 20 6f 66 20 74 68 | 65 52 65 73 75 6c 74 20 | 1 of th|eResult |
|000046c0| 3d 20 34 20 74 68 65 6e | 0d 70 75 74 20 74 72 75 |= 4 then|.put tru|
|000046d0| 65 20 69 6e 74 6f 20 6c | 69 6e 65 20 31 36 20 6f |e into l|ine 16 o|
|000046e0| 66 20 74 6b 50 72 65 66 | 73 0d 65 6c 73 65 20 70 |f tkPref|s.else p|
|000046f0| 75 74 20 66 61 6c 73 65 | 20 69 6e 74 6f 20 6c 69 |ut false| into li|
|00004700| 6e 65 20 31 36 20 6f 66 | 20 74 6b 50 72 65 66 73 |ne 16 of| tkPrefs|
|00004710| 0d 65 6e 64 20 69 66 0d | 70 72 65 66 53 65 74 0d |.end if.|prefSet.|
|00004720| 65 6e 64 20 73 65 74 43 | 6f 6d 6d 65 6e 74 73 0d |end setC|omments.|
|00004730| 0d 6f 6e 20 73 65 74 57 | 6b 6e 64 73 0d 67 6c 6f |.on setW|knds.glo|
|00004740| 62 61 6c 20 74 6b 50 72 | 65 66 73 2c 74 68 65 52 |bal tkPr|efs,theR|
|00004750| 65 73 75 6c 74 0d 69 66 | 20 6c 69 6e 65 20 31 34 |esult.if| line 14|
|00004760| 20 6f 66 20 74 6b 50 72 | 65 66 73 20 3d 20 22 54 | of tkPr|efs = "T|
|00004770| 72 75 65 22 20 74 68 65 | 6e 20 70 75 74 20 34 20 |rue" the|n put 4 |
|00004780| 69 6e 74 6f 20 72 0d 65 | 6c 73 65 20 70 75 74 20 |into r.e|lse put |
|00004790| 35 20 69 6e 74 6f 20 72 | 0d 73 68 6f 77 44 69 61 |5 into r|.showDia|
|000047a0| 6c 6f 67 20 33 2c 31 32 | 39 32 2c 22 53 6b 69 70 |log 3,12|92,"Skip|
|000047b0| 20 77 65 65 6b 65 6e 64 | 73 20 77 68 65 6e 20 70 | weekend|s when p|
|000047c0| 72 6f 6d 70 74 69 6e 67 | 20 66 6f 72 20 6e 65 78 |rompting| for nex|
|000047d0| 74 20 64 61 74 65 3f 22 | 2c 2c 2c 72 0d 70 75 74 |t date?"|,,,r.put|
|000047e0| 20 74 68 65 20 72 65 73 | 75 6c 74 20 69 6e 74 6f | the res|ult into|
|000047f0| 20 74 68 65 52 65 73 75 | 6c 74 0d 69 66 20 74 68 | theResu|lt.if th|
|00004800| 65 52 65 73 75 6c 74 20 | 3d 20 65 6d 70 74 79 20 |eResult |= empty |
|00004810| 74 68 65 6e 20 65 78 69 | 74 20 73 65 74 57 6b 6e |then exi|t setWkn|
|00004820| 64 73 0d 65 6c 73 65 0d | 69 66 20 6c 69 6e 65 20 |ds.else.|if line |
|00004830| 31 20 6f 66 20 74 68 65 | 52 65 73 75 6c 74 20 3d |1 of the|Result =|
|00004840| 20 34 20 74 68 65 6e 0d | 70 75 74 20 22 54 72 75 | 4 then.|put "Tru|
|00004850| 65 22 20 69 6e 74 6f 20 | 6c 69 6e 65 20 31 34 20 |e" into |line 14 |
|00004860| 6f 66 20 74 6b 50 72 65 | 66 73 0d 65 6c 73 65 20 |of tkPre|fs.else |
|00004870| 70 75 74 20 22 46 61 6c | 73 65 22 20 69 6e 74 6f |put "Fal|se" into|
|00004880| 20 6c 69 6e 65 20 31 34 | 20 6f 66 20 74 6b 50 72 | line 14| of tkPr|
|00004890| 65 66 73 0d 65 6e 64 20 | 69 66 0d 70 72 65 66 53 |efs.end |if.prefS|
|000048a0| 65 74 0d 65 6e 64 20 73 | 65 74 57 6b 6e 64 73 0d |et.end s|etWknds.|
|000048b0| 0d 6f 6e 20 70 72 65 66 | 53 65 74 0d 67 6c 6f 62 |.on pref|Set.glob|
|000048c0| 61 6c 20 74 6b 50 72 65 | 66 73 0d 70 75 74 20 74 |al tkPre|fs.put t|
|000048d0| 6b 50 72 65 66 73 20 69 | 6e 74 6f 20 66 6c 64 20 |kPrefs i|nto fld |
|000048e0| 69 64 20 34 38 20 6f 66 | 20 63 64 20 31 0d 65 6e |id 48 of| cd 1.en|
|000048f0| 64 20 70 72 65 66 53 65 | 74 0d 0d 6f 6e 20 67 65 |d prefSe|t..on ge|
|00004900| 74 48 6f 75 72 73 0d 67 | 6c 6f 62 61 6c 20 7a 0d |tHours.g|lobal z.|
|00004910| 73 65 74 20 74 68 65 20 | 6e 75 6d 62 65 72 46 6f |set the |numberFo|
|00004920| 72 6d 61 74 20 74 6f 20 | 22 30 22 0d 70 75 74 20 |rmat to |"0".put |
|00004930| 7a 20 2a 20 31 20 69 6e | 74 6f 20 6c 69 6e 65 50 |z * 1 in|to lineP|
|00004940| 72 6f 6d 70 74 0d 73 68 | 6f 77 44 69 61 6c 6f 67 |rompt.sh|owDialog|
|00004950| 20 32 2c 32 31 31 31 2c | 22 20 20 20 20 20 20 48 | 2,2111,|"      H|
|00004960| 6f 75 72 73 20 66 6f 72 | 20 6c 69 6e 65 20 22 20 |ours for| line " |
|00004970| 26 20 6c 69 6e 65 50 72 | 6f 6d 70 74 20 26 20 22 |& linePr|ompt & "|
|00004980| 3f 22 2c 2c 6c 69 6e 65 | 20 7a 20 6f 66 20 66 6c |?",,line| z of fl|
|00004990| 64 20 69 64 20 34 0d 70 | 75 74 20 6c 69 6e 65 20 |d id 4.p|ut line |
|000049a0| 31 20 6f 66 20 74 68 65 | 20 72 65 73 75 6c 74 20 |1 of the| result |
|000049b0| 69 6e 74 6f 20 6e 0d 69 | 66 20 6e 20 3d 20 65 6d |into n.i|f n = em|
|000049c0| 70 74 79 20 74 68 65 6e | 20 65 78 69 74 20 74 6f |pty then| exit to|
|000049d0| 20 68 79 70 65 72 63 61 | 72 64 0d 70 75 74 20 63 | hyperca|rd.put c|
|000049e0| 68 65 63 6b 4e 75 6d 62 | 65 72 28 6e 29 20 69 6e |heckNumb|er(n) in|
|000049f0| 74 6f 20 6e 0d 69 66 20 | 6e 20 3d 20 72 65 64 6f |to n.if |n = redo|
|00004a00| 20 74 68 65 6e 0d 67 65 | 74 48 6f 75 72 73 0d 65 | then.ge|tHours.e|
|00004a10| 78 69 74 20 67 65 74 48 | 6f 75 72 73 0d 65 6e 64 |xit getH|ours.end|
|00004a20| 20 69 66 0d 70 75 74 20 | 63 6f 6e 76 65 72 74 48 | if.put |convertH|
|00004a30| 72 73 28 6e 29 20 69 6e | 74 6f 20 6c 69 6e 65 20 |rs(n) in|to line |
|00004a40| 7a 20 6f 66 20 66 6c 64 | 20 69 64 20 34 0d 74 6f |z of fld| id 4.to|
|00004a50| 74 61 6c 0d 65 6e 64 20 | 67 65 74 48 6f 75 72 73 |tal.end |getHours|
|00004a60| 0d 0d 6f 6e 20 63 6f 6d | 6d 61 57 61 72 6e 69 6e |..on com|maWarnin|
|00004a70| 67 0d 62 65 65 70 0d 73 | 68 6f 77 44 69 61 6c 6f |g.beep.s|howDialo|
|00004a80| 67 20 32 2c 32 39 35 31 | 2c 22 53 6f 72 72 79 21 |g 2,2951|,"Sorry!|
|00004a90| 20 43 61 6e d5 74 20 75 | 73 65 20 63 6f 6d 6d 61 | Can.t u|se comma|
|00004aa0| 73 2e 20 50 6c 65 61 73 | 65 20 74 72 79 20 61 67 |s. Pleas|e try ag|
|00004ab0| 61 69 6e 2e 22 2c 22 22 | 2c 22 22 0d 65 6e 64 20 |ain.",""|,"".end |
|00004ac0| 63 6f 6d 6d 61 57 61 72 | 6e 69 6e 67 0d 0d 6f 6e |commaWar|ning..on|
|00004ad0| 20 68 69 64 65 54 4b 0d | 67 6c 6f 62 61 6c 20 74 | hideTK.|global t|
|00004ae0| 6b 50 72 65 66 73 0d 6c | 6f 63 6b 20 73 63 72 65 |kPrefs.l|ock scre|
|00004af0| 65 6e 0d 70 75 74 20 74 | 68 65 20 6e 75 6d 62 65 |en.put t|he numbe|
|00004b00| 72 20 6f 66 20 6d 65 6e | 75 49 74 65 6d 73 20 69 |r of men|uItems i|
|00004b10| 6e 20 6d 65 6e 75 20 22 | 54 69 6d 65 43 61 63 68 |n menu "|TimeCach|
|00004b20| 65 22 20 69 6e 74 6f 20 | 69 0d 69 66 20 74 68 65 |e" into |i.if the|
|00004b30| 20 76 69 73 69 62 6c 65 | 20 6f 66 20 77 69 6e 64 | visible| of wind|
|00004b40| 6f 77 20 28 73 68 6f 72 | 74 20 6e 61 6d 65 20 6f |ow (shor|t name o|
|00004b50| 66 20 74 68 69 73 20 73 | 74 61 63 6b 29 20 3d 20 |f this s|tack) = |
|00004b60| 74 72 75 65 20 74 68 65 | 6e 0d 68 69 64 65 20 77 |true the|n.hide w|
|00004b70| 69 6e 64 6f 77 20 28 73 | 68 6f 72 74 20 6e 61 6d |indow (s|hort nam|
|00004b80| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 29 |e of thi|s stack)|
|00004b90| 0d 73 65 74 20 74 68 65 | 20 63 68 65 63 6b 4d 61 |.set the| checkMa|
|00004ba0| 72 6b 20 6f 66 20 6d 65 | 6e 75 49 74 65 6d 20 22 |rk of me|nuItem "|
|00004bb0| 48 69 64 65 20 54 69 6d | 65 43 61 63 68 65 22 20 |Hide Tim|eCache" |
|00004bc0| 6f 66 20 6d 65 6e 75 20 | 22 54 69 6d 65 43 61 63 |of menu |"TimeCac|
|00004bd0| 68 65 22 20 74 6f 20 74 | 72 75 65 0d 72 65 70 65 |he" to t|rue.repe|
|00004be0| 61 74 20 77 69 74 68 20 | 78 20 3d 20 33 20 74 6f |at with |x = 3 to|
|00004bf0| 20 69 0d 64 69 73 61 62 | 6c 65 20 6d 65 6e 75 49 | i.disab|le menuI|
|00004c00| 74 65 6d 20 78 20 6f 66 | 20 6d 65 6e 75 20 22 54 |tem x of| menu "T|
|00004c10| 69 6d 65 43 61 63 68 65 | 22 0d 65 6e 64 20 72 65 |imeCache|".end re|
|00004c20| 70 65 61 74 0d 69 66 20 | 74 68 65 72 65 20 69 73 |peat.if |there is|
|00004c30| 20 61 20 77 69 6e 64 6f | 77 20 22 73 65 63 74 4e | a windo|w "sectN|
|00004c40| 61 76 22 0d 74 68 65 6e | 20 68 69 64 65 20 77 69 |av".then| hide wi|
|00004c50| 6e 64 6f 77 20 22 73 65 | 63 74 4e 61 76 22 0d 64 |ndow "se|ctNav".d|
|00004c60| 69 73 61 62 6c 65 20 6d | 65 6e 75 20 47 6f 0d 64 |isable m|enu Go.d|
|00004c70| 69 73 61 62 6c 65 20 6d | 65 6e 75 20 45 64 69 74 |isable m|enu Edit|
|00004c80| 0d 64 69 73 61 62 6c 65 | 20 6d 65 6e 75 20 46 69 |.disable| menu Fi|
|00004c90| 6c 65 0d 65 6c 73 65 0d | 73 68 6f 77 20 77 69 6e |le.else.|show win|
|00004ca0| 64 6f 77 20 73 68 6f 72 | 74 20 6e 61 6d 65 20 6f |dow shor|t name o|
|00004cb0| 66 20 74 68 69 73 20 73 | 74 61 63 6b 0d 73 65 74 |f this s|tack.set|
|00004cc0| 20 74 68 65 20 63 68 65 | 63 6b 4d 61 72 6b 20 6f | the che|ckMark o|
|00004cd0| 66 20 6d 65 6e 75 49 74 | 65 6d 20 22 48 69 64 65 |f menuIt|em "Hide|
|00004ce0| 20 54 69 6d 65 43 61 63 | 68 65 22 20 6f 66 20 6d | TimeCac|he" of m|
|00004cf0| 65 6e 75 20 22 54 69 6d | 65 43 61 63 68 65 22 20 |enu "Tim|eCache" |
|00004d00| 74 6f 20 66 61 6c 73 65 | 0d 72 65 70 65 61 74 20 |to false|.repeat |
|00004d10| 77 69 74 68 20 78 20 3d | 20 33 20 74 6f 20 69 0d |with x =| 3 to i.|
|00004d20| 65 6e 61 62 6c 65 20 6d | 65 6e 75 49 74 65 6d 20 |enable m|enuItem |
|00004d30| 78 20 6f 66 20 6d 65 6e | 75 20 22 54 69 6d 65 43 |x of men|u "TimeC|
|00004d40| 61 63 68 65 22 0d 65 6e | 64 20 72 65 70 65 61 74 |ache".en|d repeat|
|00004d50| 0d 65 6e 61 62 6c 65 20 | 6d 65 6e 75 20 47 6f 0d |.enable |menu Go.|
|00004d60| 65 6e 61 62 6c 65 20 6d | 65 6e 75 20 45 64 69 74 |enable m|enu Edit|
|00004d70| 0d 65 6e 61 62 6c 65 20 | 6d 65 6e 75 20 46 69 6c |.enable |menu Fil|
|00004d80| 65 0d 69 66 20 74 68 65 | 72 65 20 69 73 20 61 20 |e.if the|re is a |
|00004d90| 77 69 6e 64 6f 77 20 22 | 73 65 63 74 4e 61 76 22 |window "|sectNav"|
|00004da0| 0d 74 68 65 6e 20 73 68 | 6f 77 20 77 69 6e 64 6f |.then sh|ow windo|
|00004db0| 77 20 22 73 65 63 74 4e | 61 76 22 0d 65 6e 64 20 |w "sectN|av".end |
|00004dc0| 69 66 0d 75 6e 6c 6f 63 | 6b 20 73 63 72 65 65 6e |if.unloc|k screen|
|00004dd0| 0d 65 6e 64 20 68 69 64 | 65 54 4b 0d 0d 6f 6e 20 |.end hid|eTK..on |
|00004de0| 65 78 69 74 4d 6f 76 65 | 0d 67 6c 6f 62 61 6c 20 |exitMove|.global |
|00004df0| 6d 6f 76 65 54 65 78 74 | 2c 63 6f 70 79 4d 6f 64 |moveText|,copyMod|
|00004e00| 65 0d 70 75 74 20 66 61 | 6c 73 65 20 69 6e 74 6f |e.put fa|lse into|
|00004e10| 20 63 6f 70 79 4d 6f 64 | 65 0d 69 66 20 6d 6f 76 | copyMod|e.if mov|
|00004e20| 65 54 65 78 74 20 ad 20 | 65 6d 70 74 79 20 74 68 |eText . |empty th|
|00004e30| 65 6e 0d 70 75 74 20 22 | 43 61 6e 63 65 6c 6c 69 |en.put "|Cancelli|
|00004e40| 6e 67 20 6e 6f 77 20 77 | 69 6c 6c 20 64 65 6c 65 |ng now w|ill dele|
|00004e50| 74 65 20 74 68 65 20 6c | 69 6e 65 20 79 6f 75 20 |te the l|ine you |
|00004e60| 73 65 6c 65 63 74 65 64 | 2e 20 52 65 73 74 6f 72 |selected|. Restor|
|00004e70| 65 20 22 20 26 c2 0d 22 | 74 68 65 20 6c 69 6e 65 |e " &.."|the line|
|00004e80| 3f 22 20 69 6e 74 6f 20 | 70 72 6f 6d 70 74 0d 62 |?" into |prompt.b|
|00004e90| 65 65 70 0d 73 68 6f 77 | 44 69 61 6c 6f 67 20 31 |eep.show|Dialog 1|
|00004ea0| 2c 31 33 30 35 2c 70 72 | 6f 6d 70 74 2c 54 52 55 |,1305,pr|ompt,TRU|
|00004eb0| 45 0d 69 66 20 74 68 65 | 20 72 65 73 75 6c 74 20 |E.if the| result |
|00004ec0| ad 20 34 20 74 68 65 6e | 20 72 65 73 74 6f 72 65 |. 4 then| restore|
|00004ed0| 4d 6f 76 65 0d 65 6e 64 | 20 69 66 0d 65 6e 61 62 |Move.end| if.enab|
|00004ee0| 6c 65 20 6d 65 6e 75 20 | 22 46 69 6c 65 22 0d 65 |le menu |"File".e|
|00004ef0| 6e 61 62 6c 65 20 6d 65 | 6e 75 20 22 54 69 6d 65 |nable me|nu "Time|
|00004f00| 43 61 63 68 65 22 0d 65 | 6e 61 62 6c 65 20 6d 65 |Cache".e|nable me|
|00004f10| 6e 75 20 22 47 6f 22 0d | 63 6c 6f 73 65 4d 6f 76 |nu "Go".|closeMov|
|00004f20| 65 57 69 6e 64 6f 77 73 | 0d 65 6e 64 20 65 78 69 |eWindows|.end exi|
|00004f30| 74 4d 6f 76 65 0d 0d 6f | 6e 20 72 65 73 74 6f 72 |tMove..o|n restor|
|00004f40| 65 4d 6f 76 65 0d 67 6c | 6f 62 61 6c 20 74 43 64 |eMove.gl|obal tCd|
|00004f50| 2c 62 2c 6d 6f 76 65 54 | 65 78 74 2c 70 61 73 74 |,b,moveT|ext,past|
|00004f60| 65 4d 6f 64 65 0d 73 65 | 74 20 63 75 72 73 6f 72 |eMode.se|t cursor|
|00004f70| 20 74 6f 20 77 61 74 63 | 68 0d 6c 6f 63 6b 20 73 | to watc|h.lock s|
|00004f80| 63 72 65 65 6e 0d 73 65 | 74 20 6c 6f 63 6b 4d 65 |creen.se|t lockMe|
|00004f90| 73 73 61 67 65 73 20 74 | 6f 20 74 72 75 65 0d 69 |ssages t|o true.i|
|00004fa0| 66 20 62 20 3e 20 31 20 | 74 68 65 6e 0d 70 75 74 |f b > 1 |then.put|
|00004fb0| 20 72 65 74 75 72 6e 20 | 69 6e 74 6f 20 67 0d 70 | return |into g.p|
|00004fc0| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 68 0d |ut empty| into h.|
|00004fd0| 65 6c 73 65 0d 70 75 74 | 20 32 20 69 6e 74 6f 20 |else.put| 2 into |
|00004fe0| 62 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |b.put em|pty into|
|00004ff0| 20 67 0d 70 75 74 20 72 | 65 74 75 72 6e 20 69 6e | g.put r|eturn in|
|00005000| 74 6f 20 68 0d 65 6e 64 | 20 69 66 0d 72 65 70 65 |to h.end| if.repe|
|00005010| 61 74 20 77 69 74 68 20 | 78 20 3d 20 31 20 74 6f |at with |x = 1 to|
|00005020| 20 35 0d 70 75 74 20 67 | 20 26 20 6c 69 6e 65 20 | 5.put g| & line |
|00005030| 78 20 6f 66 20 6d 6f 76 | 65 54 65 78 74 20 26 20 |x of mov|eText & |
|00005040| 68 20 69 6e 74 6f 20 72 | 65 73 74 6f 72 65 54 65 |h into r|estoreTe|
|00005050| 78 74 0d 70 75 74 20 72 | 65 73 74 6f 72 65 54 65 |xt.put r|estoreTe|
|00005060| 78 74 20 61 66 74 65 72 | 20 6c 69 6e 65 20 28 62 |xt after| line (b|
|00005070| 20 2d 20 31 29 20 6f 66 | 20 66 6c 64 20 78 20 6f | - 1) of| fld x o|
|00005080| 66 20 63 64 20 74 43 64 | 0d 65 6e 64 20 72 65 70 |f cd tCd|.end rep|
|00005090| 65 61 74 0d 73 75 6d 48 | 6f 75 72 73 20 74 43 64 |eat.sumH|ours tCd|
|000050a0| 0d 73 65 74 20 6c 6f 63 | 6b 4d 65 73 73 61 67 65 |.set loc|kMessage|
|000050b0| 73 20 74 6f 20 66 61 6c | 73 65 0d 67 6f 20 63 64 |s to fal|se.go cd|
|000050c0| 20 74 43 64 0d 70 75 74 | 20 65 6d 70 74 79 20 69 | tCd.put| empty i|
|000050d0| 6e 74 6f 20 6d 6f 76 65 | 54 65 78 74 0d 70 75 74 |nto move|Text.put|
|000050e0| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 70 61 73 74 | false i|nto past|
|000050f0| 65 4d 6f 64 65 0d 63 6c | 6f 73 65 4d 6f 76 65 57 |eMode.cl|oseMoveW|
|00005100| 69 6e 64 6f 77 73 0d 75 | 6e 6c 6f 63 6b 20 73 63 |indows.u|nlock sc|
|00005110| 72 65 65 6e 0d 65 6e 64 | 20 72 65 73 74 6f 72 65 |reen.end| restore|
|00005120| 4d 6f 76 65 0d 0d 6f 6e | 20 6d 6f 76 65 4c 69 6e |Move..on| moveLin|
|00005130| 65 0d 67 6c 6f 62 61 6c | 20 63 6f 70 79 4d 6f 64 |e.global| copyMod|
|00005140| 65 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |e.set cu|rsor to |
|00005150| 77 61 74 63 68 0d 6c 6f | 63 6b 20 73 63 72 65 65 |watch.lo|ck scree|
|00005160| 6e 0d 70 61 6c 65 74 74 | 65 20 73 74 61 72 74 4d |n.palett|e startM|
|00005170| 6f 76 65 2c 22 32 34 32 | 2c 32 34 32 22 0d 70 75 |ove,"242|,242".pu|
|00005180| 74 20 74 72 75 65 20 69 | 6e 74 6f 20 63 6f 70 79 |t true i|nto copy|
|00005190| 4d 6f 64 65 0d 62 65 65 | 70 0d 64 69 73 61 62 6c |Mode.bee|p.disabl|
|000051a0| 65 20 6d 65 6e 75 20 22 | 46 69 6c 65 22 0d 64 69 |e menu "|File".di|
|000051b0| 73 61 62 6c 65 20 6d 65 | 6e 75 20 22 47 6f 22 0d |sable me|nu "Go".|
|000051c0| 64 69 73 61 62 6c 65 20 | 6d 65 6e 75 20 22 54 69 |disable |menu "Ti|
|000051d0| 6d 65 43 61 63 68 65 22 | 0d 75 6e 6c 6f 63 6b 20 |meCache"|.unlock |
|000051e0| 73 63 72 65 65 6e 0d 65 | 6e 64 20 6d 6f 76 65 4c |screen.e|nd moveL|
|000051f0| 69 6e 65 0d 0d 6f 6e 20 | 64 6f 4d 6f 76 65 0d 67 |ine..on |doMove.g|
|00005200| 6c 6f 62 61 6c 20 70 61 | 73 74 65 4d 6f 64 65 2c |lobal pa|steMode,|
|00005210| 6d 6f 76 65 54 65 78 74 | 2c 62 2c 63 64 4e 61 6d |moveText|,b,cdNam|
|00005220| 65 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |e.set cu|rsor to |
|00005230| 77 61 74 63 68 0d 69 66 | 20 74 68 65 20 73 68 6f |watch.if| the sho|
|00005240| 72 74 20 69 64 20 6f 66 | 20 74 68 69 73 20 62 67 |rt id of| this bg|
|00005250| 20 ad 20 35 34 34 39 20 | 74 68 65 6e 0d 62 65 65 | . 5449 |then.bee|
|00005260| 70 0d 73 68 6f 77 44 69 | 61 6c 6f 67 20 32 2c 32 |p.showDi|alog 2,2|
|00005270| 39 35 31 2c 22 59 6f 75 | 20 63 61 6e 20 6f 6e 6c |951,"You| can onl|
|00005280| 79 20 61 64 64 20 74 68 | 69 73 20 64 61 74 61 20 |y add th|is data |
|00005290| 74 6f 20 61 20 4a 6f 62 | 20 53 68 65 65 74 2e 20 |to a Job| Sheet. |
|000052a0| 53 74 61 72 74 20 61 67 | 61 69 6e 2e 22 2c 22 22 |Start ag|ain.",""|
|000052b0| 2c 22 22 0d 72 65 73 74 | 6f 72 65 4d 6f 76 65 0d |,"".rest|oreMove.|
|000052c0| 65 6e 64 20 69 66 0d 69 | 66 20 70 61 73 74 65 4d |end if.i|f pasteM|
|000052d0| 6f 64 65 20 3d 20 74 72 | 75 65 20 61 6e 64 20 6d |ode = tr|ue and m|
|000052e0| 6f 76 65 54 65 78 74 20 | ad 20 65 6d 70 74 79 20 |oveText |. empty |
|000052f0| 74 68 65 6e 0d 70 75 74 | 20 31 20 2b 20 74 68 65 |then.put| 1 + the|
|00005300| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|00005310| 20 69 6e 20 66 6c 64 20 | 69 64 20 32 20 69 6e 74 | in fld |id 2 int|
|00005320| 6f 20 6e 0d 69 66 20 6e | 20 3e 20 31 20 74 68 65 |o n.if n| > 1 the|
|00005330| 6e 20 70 75 74 20 72 65 | 74 75 72 6e 20 69 6e 74 |n put re|turn int|
|00005340| 6f 20 67 0d 65 6c 73 65 | 20 70 75 74 20 65 6d 70 |o g.else| put emp|
|00005350| 74 79 20 69 6e 74 6f 20 | 67 0d 6c 6f 63 6b 20 73 |ty into |g.lock s|
|00005360| 63 72 65 65 6e 0d 72 65 | 70 65 61 74 20 77 69 74 |creen.re|peat wit|
|00005370| 68 20 78 20 3d 20 31 20 | 74 6f 20 35 0d 70 75 74 |h x = 1 |to 5.put|
|00005380| 20 6c 69 6e 65 20 78 20 | 6f 66 20 6d 6f 76 65 54 | line x |of moveT|
|00005390| 65 78 74 20 26 20 67 20 | 69 6e 74 6f 20 6c 69 6e |ext & g |into lin|
|000053a0| 65 20 6e 20 6f 66 20 66 | 6c 64 20 78 0d 65 6e 64 |e n of f|ld x.end|
|000053b0| 20 72 65 70 65 61 74 0d | 70 75 74 20 74 68 65 20 | repeat.|put the |
|000053c0| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 68 |short na|me of th|
|000053d0| 69 73 20 63 64 20 69 6e | 74 6f 20 74 43 64 0d 73 |is cd in|to tCd.s|
|000053e0| 75 6d 48 6f 75 72 73 20 | 74 43 64 0d 75 6e 6c 6f |umHours |tCd.unlo|
|000053f0| 63 6b 20 73 63 72 65 65 | 6e 0d 70 75 74 20 65 6d |ck scree|n.put em|
|00005400| 70 74 79 20 69 6e 74 6f | 20 6d 6f 76 65 54 65 78 |pty into| moveTex|
|00005410| 74 0d 65 6e 64 20 69 66 | 0d 65 78 69 74 4d 6f 76 |t.end if|.exitMov|
|00005420| 65 0d 65 6e 64 20 64 6f | 4d 6f 76 65 0d 0d 6f 6e |e.end do|Move..on|
|00005430| 20 63 6c 6f 73 65 4d 6f | 76 65 57 69 6e 64 6f 77 | closeMo|veWindow|
|00005440| 73 0d 67 6c 6f 62 61 6c | 20 6d 6f 76 65 54 65 78 |s.global| moveTex|
|00005450| 74 2c 70 61 73 74 65 4d | 6f 64 65 0d 73 65 74 20 |t,pasteM|ode.set |
|00005460| 63 75 72 73 6f 72 20 74 | 6f 20 77 61 74 63 68 0d |cursor t|o watch.|
|00005470| 70 75 74 20 66 61 6c 73 | 65 20 69 6e 74 6f 20 63 |put fals|e into c|
|00005480| 6f 70 79 4d 6f 64 65 0d | 70 75 74 20 66 61 6c 73 |opyMode.|put fals|
|00005490| 65 20 69 6e 74 6f 20 70 | 61 73 74 65 4d 6f 64 65 |e into p|asteMode|
|000054a0| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|000054b0| 6d 6f 76 65 54 65 78 74 | 0d 69 66 20 74 68 65 72 |moveText|.if ther|
|000054c0| 65 20 69 73 20 61 20 77 | 69 6e 64 6f 77 20 22 73 |e is a w|indow "s|
|000054d0| 74 61 72 74 4d 6f 76 65 | 22 20 74 68 65 6e 20 63 |tartMove|" then c|
|000054e0| 6c 6f 73 65 20 77 69 6e | 64 6f 77 20 22 73 74 61 |lose win|dow "sta|
|000054f0| 72 74 4d 6f 76 65 22 0d | 69 66 20 74 68 65 72 65 |rtMove".|if there|
|00005500| 20 69 73 20 61 20 77 69 | 6e 64 6f 77 20 22 64 6f | is a wi|ndow "do|
|00005510| 4d 6f 76 65 22 20 74 68 | 65 6e 20 63 6c 6f 73 65 |Move" th|en close|
|00005520| 20 77 69 6e 64 6f 77 20 | 22 64 6f 4d 6f 76 65 22 | window |"doMove"|
|00005530| 0d 65 6e 64 20 63 6c 6f | 73 65 4d 6f 76 65 57 69 |.end clo|seMoveWi|
|00005540| 6e 64 6f 77 73 0d 0d 6f | 6e 20 67 6f 4e 65 78 74 |ndows..o|n goNext|
|00005550| 0d 67 6c 6f 62 61 6c 20 | 70 61 6c 48 69 0d 69 66 |.global |palHi.if|
|00005560| 20 74 68 65 72 65 20 69 | 73 20 61 20 77 69 6e 64 | there i|s a wind|
|00005570| 6f 77 20 22 73 65 63 74 | 4e 61 76 22 0d 74 68 65 |ow "sect|Nav".the|
|00005580| 6e 20 73 65 74 20 74 68 | 65 20 68 69 6c 69 74 65 |n set th|e hilite|
|00005590| 64 42 75 74 74 6f 6e 20 | 6f 66 20 77 69 6e 64 6f |dButton |of windo|
|000055a0| 77 20 22 73 65 63 74 4e | 61 76 22 20 74 6f 20 70 |w "sectN|av" to p|
|000055b0| 61 6c 48 69 0d 67 6f 20 | 6e 65 78 74 20 63 64 20 |alHi.go |next cd |
|000055c0| 6f 66 20 74 68 69 73 20 | 62 67 0d 65 6e 64 20 67 |of this |bg.end g|
|000055d0| 6f 4e 65 78 74 0d 0d 6f | 6e 20 67 6f 50 72 65 76 |oNext..o|n goPrev|
|000055e0| 0d 67 6c 6f 62 61 6c 20 | 70 61 6c 48 69 0d 69 66 |.global |palHi.if|
|000055f0| 20 74 68 65 72 65 20 69 | 73 20 61 20 77 69 6e 64 | there i|s a wind|
|00005600| 6f 77 20 22 73 65 63 74 | 4e 61 76 22 0d 74 68 65 |ow "sect|Nav".the|
|00005610| 6e 20 73 65 74 20 74 68 | 65 20 68 69 6c 69 74 65 |n set th|e hilite|
|00005620| 64 42 75 74 74 6f 6e 20 | 6f 66 20 77 69 6e 64 6f |dButton |of windo|
|00005630| 77 20 22 73 65 63 74 4e | 61 76 22 20 74 6f 20 70 |w "sectN|av" to p|
|00005640| 61 6c 48 69 0d 67 6f 20 | 70 72 65 76 20 63 64 20 |alHi.go |prev cd |
|00005650| 6f 66 20 74 68 69 73 20 | 62 67 0d 65 6e 64 20 67 |of this |bg.end g|
|00005660| 6f 50 72 65 76 0d 0d 6f | 6e 20 63 6c 6f 73 65 50 |oPrev..o|n closeP|
|00005670| 61 6c 65 74 74 65 20 78 | 0d 67 6c 6f 62 61 6c 20 |alette x|.global |
|00005680| 63 6f 70 79 4d 6f 64 65 | 2c 70 61 73 74 65 4d 6f |copyMode|,pasteMo|
|00005690| 64 65 2c 74 6b 50 72 65 | 66 73 0d 69 66 20 78 20 |de,tkPre|fs.if x |
|000056a0| 3d 20 73 74 61 72 74 4d | 6f 76 65 20 61 6e 64 20 |= startM|ove and |
|000056b0| 63 6f 70 79 4d 6f 64 65 | 20 3d 20 74 72 75 65 20 |copyMode| = true |
|000056c0| 74 68 65 6e 20 70 61 6c | 65 74 74 65 20 73 74 61 |then pal|ette sta|
|000056d0| 72 74 4d 6f 76 65 0d 69 | 66 20 78 20 3d 20 64 6f |rtMove.i|f x = do|
|000056e0| 4d 6f 76 65 20 61 6e 64 | 20 70 61 73 74 65 4d 6f |Move and| pasteMo|
|000056f0| 64 65 20 3d 20 74 72 75 | 65 20 74 68 65 6e 20 70 |de = tru|e then p|
|00005700| 61 6c 65 74 74 65 20 64 | 6f 4d 6f 76 65 0d 69 66 |alette d|oMove.if|
|00005710| 20 78 20 3d 20 22 73 65 | 63 74 4e 61 76 22 20 74 | x = "se|ctNav" t|
|00005720| 68 65 6e 0d 70 75 74 20 | 74 68 65 20 74 6f 70 4c |hen.put |the topL|
|00005730| 65 66 74 20 6f 66 20 77 | 69 6e 64 6f 77 20 22 73 |eft of w|indow "s|
|00005740| 65 63 74 4e 61 76 22 20 | 69 6e 74 6f 20 6c 69 6e |ectNav" |into lin|
|00005750| 65 20 32 33 20 6f 66 20 | 74 6b 50 72 65 66 73 0d |e 23 of |tkPrefs.|
|00005760| 70 75 74 20 22 53 68 6f | 77 22 20 69 6e 74 6f 20 |put "Sho|w" into |
|00005770| 6c 69 6e 65 20 32 32 20 | 6f 66 20 74 6b 50 72 65 |line 22 |of tkPre|
|00005780| 66 73 0d 70 75 74 20 22 | 53 68 6f 77 20 4e 61 76 |fs.put "|Show Nav|
|00005790| 69 67 61 74 6f 72 22 20 | 69 6e 74 6f 20 6d 65 6e |igator" |into men|
|000057a0| 75 49 74 65 6d 20 31 32 | 20 6f 66 20 6d 65 6e 75 |uItem 12| of menu|
|000057b0| 20 47 6f 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 63 | Go.end |if.end c|
|000057c0| 6c 6f 73 65 50 61 6c 65 | 74 74 65 0d 0d 6f 6e 20 |losePale|tte..on |
|000057d0| 73 75 6d 52 65 70 6f 72 | 74 0d 73 65 74 20 63 75 |sumRepor|t.set cu|
|000057e0| 72 73 6f 72 20 74 6f 20 | 77 61 74 63 68 0d 70 75 |rsor to |watch.pu|
|000057f0| 74 20 66 6c 64 20 32 20 | 69 6e 74 6f 20 61 63 74 |t fld 2 |into act|
|00005800| 69 76 69 74 79 0d 69 66 | 20 61 63 74 69 76 69 74 |ivity.if| activit|
|00005810| 79 20 3d 20 65 6d 70 74 | 79 20 74 68 65 6e 0d 73 |y = empt|y then.s|
|00005820| 68 6f 77 44 69 61 6c 6f | 67 20 32 2c 32 39 35 31 |howDialo|g 2,2951|
|00005830| 2c 22 54 68 65 72 65 d5 | 73 20 6e 6f 74 68 69 6e |,"There.|s nothin|
|00005840| 67 20 74 6f 20 73 75 6d | 6d 61 72 69 7a 65 21 22 |g to sum|marize!"|
|00005850| 2c 22 22 2c 22 22 0d 65 | 78 69 74 20 73 75 6d 52 |,"","".e|xit sumR|
|00005860| 65 70 6f 72 74 0d 65 6e | 64 20 69 66 0d 70 75 74 |eport.en|d if.put|
|00005870| 20 66 6c 64 20 69 64 20 | 36 20 69 6e 74 6f 20 68 | fld id |6 into h|
|00005880| 6f 75 72 73 0d 70 75 74 | 20 66 6c 64 20 69 64 20 |ours.put| fld id |
|00005890| 35 20 69 6e 74 6f 20 63 | 68 61 72 67 65 73 0d 67 |5 into c|harges.g|
|000058a0| 65 74 20 73 75 6d 52 65 | 70 6f 72 74 28 61 63 74 |et sumRe|port(act|
|000058b0| 69 76 69 74 79 2c 68 6f | 75 72 73 2c 63 68 61 72 |ivity,ho|urs,char|
|000058c0| 67 65 73 29 0d 69 66 20 | 74 68 65 20 76 65 72 73 |ges).if |the vers|
|000058d0| 69 6f 6e 20 3c 20 32 2e | 31 20 74 68 65 6e 20 67 |ion < 2.|1 then g|
|000058e0| 65 74 20 69 74 65 6d 44 | 65 6c 69 6d 53 65 74 28 |et itemD|elimSet(|
|000058f0| 69 74 2c 74 61 62 29 0d | 69 66 20 74 68 65 20 76 |it,tab).|if the v|
|00005900| 65 72 73 69 6f 6e 20 3e | 20 32 2e 30 20 74 68 65 |ersion >| 2.0 the|
|00005910| 6e 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 44 65 |n set th|e itemDe|
|00005920| 6c 69 6d 69 74 65 72 20 | 74 6f 20 74 61 62 0d 73 |limiter |to tab.s|
|00005930| 65 74 20 6e 75 6d 62 65 | 72 46 6f 72 6d 61 74 20 |et numbe|rFormat |
|00005940| 74 6f 20 22 30 2e 30 30 | 22 0d 72 65 70 65 61 74 |to "0.00|".repeat|
|00005950| 20 77 69 74 68 20 78 20 | 3d 20 31 20 74 6f 20 74 | with x |= 1 to t|
|00005960| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|00005970| 65 73 20 69 6e 20 69 74 | 0d 70 75 74 20 28 69 74 |es in it|.put (it|
|00005980| 65 6d 20 31 20 6f 66 20 | 6c 69 6e 65 20 78 20 6f |em 1 of |line x o|
|00005990| 66 20 69 74 29 20 26 20 | 72 65 74 75 72 6e 20 61 |f it) & |return a|
|000059a0| 66 74 65 72 20 61 63 74 | 46 69 65 6c 64 0d 70 75 |fter act|Field.pu|
|000059b0| 74 20 65 78 74 72 61 52 | 6f 75 6e 64 28 28 69 74 |t extraR|ound((it|
|000059c0| 65 6d 20 32 20 6f 66 20 | 6c 69 6e 65 20 78 20 6f |em 2 of |line x o|
|000059d0| 66 20 69 74 29 20 2a 20 | 31 29 20 26 20 72 65 74 |f it) * |1) & ret|
|000059e0| 75 72 6e 20 61 66 74 65 | 72 20 68 6f 75 72 46 69 |urn afte|r hourFi|
|000059f0| 65 6c 64 0d 70 75 74 20 | 65 78 74 72 61 52 6f 75 |eld.put |extraRou|
|00005a00| 6e 64 28 28 69 74 65 6d | 20 33 20 6f 66 20 6c 69 |nd((item| 3 of li|
|00005a10| 6e 65 20 78 20 6f 66 20 | 69 74 29 20 2a 20 31 29 |ne x of |it) * 1)|
|00005a20| 20 69 6e 74 6f 20 63 68 | 61 72 67 65 73 0d 70 75 | into ch|arges.pu|
|00005a30| 74 20 63 75 72 72 65 6e | 63 79 46 6f 72 6d 61 74 |t curren|cyFormat|
|00005a40| 28 63 68 61 72 67 65 73 | 29 20 26 20 72 65 74 75 |(charges|) & retu|
|00005a50| 72 6e 20 61 66 74 65 72 | 20 63 68 61 72 67 65 46 |rn after| chargeF|
|00005a60| 69 65 6c 64 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |ield.end| repeat.|
|00005a70| 69 66 20 74 68 65 20 76 | 65 72 73 69 6f 6e 20 3e |if the v|ersion >|
|00005a80| 20 32 2e 30 20 74 68 65 | 6e 20 73 65 74 20 74 68 | 2.0 the|n set th|
|00005a90| 65 20 69 74 65 6d 44 65 | 6c 69 6d 69 74 65 72 20 |e itemDe|limiter |
|00005aa0| 74 6f 20 22 2c 22 0d 70 | 75 74 20 66 6c 64 20 69 |to ",".p|ut fld i|
|00005ab0| 64 20 34 34 20 69 6e 74 | 6f 20 70 72 6f 6a 4e 61 |d 44 int|o projNa|
|00005ac0| 6d 65 0d 70 75 74 20 66 | 6c 64 20 69 64 20 38 20 |me.put f|ld id 8 |
|00005ad0| 69 6e 74 6f 20 63 6c 69 | 65 6e 74 4e 61 6d 65 0d |into cli|entName.|
|00005ae0| 70 75 74 20 66 6c 64 20 | 69 64 20 39 20 69 6e 74 |put fld |id 9 int|
|00005af0| 6f 20 6a 6f 62 4e 75 6d | 0d 70 75 74 20 66 6c 64 |o jobNum|.put fld|
|00005b00| 20 69 64 20 31 31 20 69 | 6e 74 6f 20 63 68 61 72 | id 11 i|nto char|
|00005b10| 67 65 54 6f 74 61 6c 0d | 70 75 74 20 66 6c 64 20 |geTotal.|put fld |
|00005b20| 69 64 20 34 35 20 69 6e | 74 6f 20 68 6f 75 72 54 |id 45 in|to hourT|
|00005b30| 6f 74 61 6c 0d 70 75 74 | 20 6c 69 6e 65 20 31 20 |otal.put| line 1 |
|00005b40| 6f 66 20 66 6c 64 20 69 | 64 20 31 30 20 69 6e 74 |of fld i|d 10 int|
|00005b50| 6f 20 63 75 73 74 46 6c | 64 0d 70 75 73 68 20 63 |o custFl|d.push c|
|00005b60| 64 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 67 6f |d.lock s|creen.go|
|00005b70| 20 62 67 20 69 64 20 36 | 31 38 32 0d 70 75 74 20 | bg id 6|182.put |
|00005b80| 61 63 74 46 69 65 6c 64 | 20 69 6e 74 6f 20 66 6c |actField| into fl|
|00005b90| 64 20 69 64 20 31 36 0d | 70 75 74 20 68 6f 75 72 |d id 16.|put hour|
|00005ba0| 46 69 65 6c 64 20 69 6e | 74 6f 20 66 6c 64 20 69 |Field in|to fld i|
|00005bb0| 64 20 31 38 0d 70 75 74 | 20 63 68 61 72 67 65 46 |d 18.put| chargeF|
|00005bc0| 69 65 6c 64 20 69 6e 74 | 6f 20 66 6c 64 20 69 64 |ield int|o fld id|
|00005bd0| 20 31 37 0d 70 75 74 20 | 70 72 6f 6a 4e 61 6d 65 | 17.put |projName|
|00005be0| 20 69 6e 74 6f 20 66 6c | 64 20 69 64 20 31 0d 70 | into fl|d id 1.p|
|00005bf0| 75 74 20 63 6c 69 65 6e | 74 4e 61 6d 65 20 69 6e |ut clien|tName in|
|00005c00| 74 6f 20 66 6c 64 20 69 | 64 20 32 0d 70 75 74 20 |to fld i|d 2.put |
|00005c10| 6a 6f 62 4e 75 6d 20 69 | 6e 74 6f 20 66 6c 64 20 |jobNum i|nto fld |
|00005c20| 69 64 20 33 0d 70 75 74 | 20 63 68 61 72 67 65 54 |id 3.put| chargeT|
|00005c30| 6f 74 61 6c 20 69 6e 74 | 6f 20 66 6c 64 20 69 64 |otal int|o fld id|
|00005c40| 20 34 0d 70 75 74 20 68 | 6f 75 72 54 6f 74 61 6c | 4.put h|ourTotal|
|00005c50| 20 69 6e 74 6f 20 66 6c | 64 20 69 64 20 35 0d 69 | into fl|d id 5.i|
|00005c60| 66 20 63 75 73 74 46 6c | 64 20 ad 20 65 6d 70 74 |f custFl|d . empt|
|00005c70| 79 20 74 68 65 6e 20 70 | 75 74 20 63 75 73 74 46 |y then p|ut custF|
|00005c80| 6c 64 20 69 6e 74 6f 20 | 66 6c 64 20 69 64 20 39 |ld into |fld id 9|
|00005c90| 0d 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 65 |.unlock |screen.e|
|00005ca0| 6e 64 20 73 75 6d 52 65 | 70 6f 72 74 0d 0d 66 75 |nd sumRe|port..fu|
|00005cb0| 6e 63 74 69 6f 6e 20 69 | 74 65 6d 46 69 6e 64 20 |nction i|temFind |
|00005cc0| 77 68 61 74 2c 77 68 65 | 72 65 2c 68 6f 77 0d 70 |what,whe|re,how.p|
|00005cd0| 75 74 20 31 20 69 6e 74 | 6f 20 73 74 61 72 74 4f |ut 1 int|o startO|
|00005ce0| 66 66 73 65 74 0d 70 75 | 74 20 30 20 69 6e 74 6f |ffset.pu|t 0 into|
|00005cf0| 20 61 64 64 65 72 0d 72 | 65 70 65 61 74 0d 70 75 | adder.r|epeat.pu|
|00005d00| 74 20 6f 66 66 73 65 74 | 28 77 68 61 74 2c 63 68 |t offset|(what,ch|
|00005d10| 61 72 20 73 74 61 72 74 | 4f 66 66 73 65 74 20 74 |ar start|Offset t|
|00005d20| 6f 20 6c 65 6e 67 74 68 | 28 77 68 65 72 65 29 20 |o length|(where) |
|00005d30| 6f 66 20 77 68 65 72 65 | 29 20 69 6e 74 6f 20 73 |of where|) into s|
|00005d40| 74 61 72 74 4f 66 66 73 | 65 74 0d 69 66 20 73 74 |tartOffs|et.if st|
|00005d50| 61 72 74 4f 66 66 73 65 | 74 20 3d 20 30 20 74 68 |artOffse|t = 0 th|
|00005d60| 65 6e 20 72 65 74 75 72 | 6e 20 30 0d 61 64 64 20 |en retur|n 0.add |
|00005d70| 73 74 61 72 74 4f 66 66 | 73 65 74 20 74 6f 20 61 |startOff|set to a|
|00005d80| 64 64 65 72 0d 67 65 74 | 20 74 68 65 20 6e 75 6d |dder.get| the num|
|00005d90| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 69 6e 20 |ber of l|ines in |
|00005da0| 63 68 61 72 20 31 20 74 | 6f 20 61 64 64 65 72 20 |char 1 t|o adder |
|00005db0| 6f 66 20 77 68 65 72 65 | 0d 69 66 20 77 68 61 74 |of where|.if what|
|00005dc0| 20 3d 20 69 74 65 6d 20 | 68 6f 77 20 6f 66 20 6c | = item |how of l|
|00005dd0| 69 6e 65 20 69 74 20 6f | 66 20 77 68 65 72 65 20 |ine it o|f where |
|00005de0| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 69 74 0d 70 |then ret|urn it.p|
|00005df0| 75 74 20 61 64 64 65 72 | 2b 31 20 69 6e 74 6f 20 |ut adder|+1 into |
|00005e00| 73 74 61 72 74 4f 66 66 | 73 65 74 0d 65 6e 64 20 |startOff|set.end |
|00005e10| 72 65 70 65 61 74 0d 65 | 6e 64 20 69 74 65 6d 46 |repeat.e|nd itemF|
|00005e20| 69 6e 64 0d 0d 6f 6e 20 | 73 75 6d 48 6f 75 72 73 |ind..on |sumHours|
|00005e30| 20 74 43 64 0d 6c 6f 63 | 6b 20 73 63 72 65 65 6e | tCd.loc|k screen|
|00005e40| 0d 70 75 74 20 66 6c 64 | 20 69 64 20 35 20 6f 66 |.put fld| id 5 of|
|00005e50| 20 63 64 20 74 43 64 20 | 69 6e 74 6f 20 63 68 61 | cd tCd |into cha|
|00005e60| 72 67 65 73 0d 70 75 74 | 20 66 6c 64 20 69 64 20 |rges.put| fld id |
|00005e70| 36 20 6f 66 20 63 64 20 | 74 43 64 20 69 6e 74 6f |6 of cd |tCd into|
|00005e80| 20 68 6f 75 72 73 0d 73 | 65 74 20 74 68 65 20 6e | hours.s|et the n|
|00005e90| 75 6d 62 65 72 46 6f 72 | 6d 61 74 20 74 6f 20 22 |umberFor|mat to "|
|00005ea0| 30 2e 30 30 22 0d 67 65 | 74 20 65 78 74 72 61 52 |0.00".ge|t extraR|
|00005eb0| 6f 75 6e 64 28 73 75 6d | 49 74 28 63 68 61 72 67 |ound(sum|It(charg|
|00005ec0| 65 73 29 20 2a 20 31 29 | 0d 70 75 74 20 63 75 72 |es) * 1)|.put cur|
|00005ed0| 72 65 6e 63 79 46 6f 72 | 6d 61 74 28 69 74 29 20 |rencyFor|mat(it) |
|00005ee0| 69 6e 74 6f 20 66 6c 64 | 20 69 64 20 31 31 20 6f |into fld| id 11 o|
|00005ef0| 66 20 63 64 20 74 43 64 | 0d 70 75 74 20 65 78 74 |f cd tCd|.put ext|
|00005f00| 72 61 52 6f 75 6e 64 28 | 73 75 6d 49 74 28 68 6f |raRound(|sumIt(ho|
|00005f10| 75 72 73 29 20 2a 20 31 | 29 20 26 20 22 20 68 72 |urs) * 1|) & " hr|
|00005f20| 73 2e 22 20 69 6e 74 6f | 20 66 6c 64 20 69 64 20 |s." into| fld id |
|00005f30| 34 35 20 6f 66 20 63 64 | 20 74 43 64 0d 75 6e 6c |45 of cd| tCd.unl|
|00005f40| 6f 63 6b 20 73 63 72 65 | 65 6e 0d 65 6e 64 20 73 |ock scre|en.end s|
|00005f50| 75 6d 48 6f 75 72 73 0d | 0d 6f 6e 20 61 70 70 6c |umHours.|.on appl|
|00005f60| 79 52 61 74 65 73 0d 67 | 6c 6f 62 61 6c 20 78 4c |yRates.g|lobal xL|
|00005f70| 69 6e 65 0d 73 68 6f 77 | 44 69 61 6c 6f 67 20 31 |ine.show|Dialog 1|
|00005f80| 2c 32 36 31 39 2c 22 43 | 6f 6e 76 65 72 74 20 61 |,2619,"C|onvert a|
|00005f90| 6c 6c 20 4a 6f 62 20 53 | 68 65 65 74 20 65 6e 74 |ll Job S|heet ent|
|00005fa0| 72 69 65 73 20 74 6f 20 | 63 75 72 72 65 6e 74 20 |ries to |current |
|00005fb0| 72 61 74 65 73 3f 22 2c | 54 52 55 45 0d 69 66 20 |rates?",|TRUE.if |
|00005fc0| 74 68 65 20 72 65 73 75 | 6c 74 20 3d 20 34 20 74 |the resu|lt = 4 t|
|00005fd0| 68 65 6e 20 65 78 69 74 | 20 61 70 70 6c 79 52 61 |hen exit| applyRa|
|00005fe0| 74 65 73 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |tes.set |cursor t|
|00005ff0| 6f 20 77 61 74 63 68 0d | 6c 6f 63 6b 20 73 63 72 |o watch.|lock scr|
|00006000| 65 65 6e 0d 67 6f 20 63 | 64 20 31 20 6f 66 20 62 |een.go c|d 1 of b|
|00006010| 67 20 69 64 20 35 34 34 | 39 0d 72 65 70 65 61 74 |g id 544|9.repeat|
|00006020| 20 77 69 74 68 20 78 20 | 3d 20 31 20 74 6f 20 74 | with x |= 1 to t|
|00006030| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 64 73 |he numbe|r of cds|
|00006040| 20 69 6e 20 74 68 69 73 | 20 62 67 0d 72 65 70 65 | in this| bg.repe|
|00006050| 61 74 20 77 69 74 68 20 | 78 4c 69 6e 65 20 3d 20 |at with |xLine = |
|00006060| 31 20 74 6f 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |1 to the| number |
|00006070| 6f 66 20 6c 69 6e 65 73 | 20 69 6e 20 66 6c 64 20 |of lines| in fld |
|00006080| 69 64 20 33 0d 72 65 63 | 68 61 72 67 65 0d 65 6e |id 3.rec|harge.en|
|00006090| 64 20 72 65 70 65 61 74 | 0d 67 6f 20 6e 65 78 74 |d repeat|.go next|
|000060a0| 20 63 64 20 6f 66 20 74 | 68 69 73 20 62 67 0d 65 | cd of t|his bg.e|
|000060b0| 6e 64 20 72 65 70 65 61 | 74 0d 67 6f 20 63 64 20 |nd repea|t.go cd |
|000060c0| 31 0d 75 6e 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |1.unlock| screen.|
|000060d0| 62 65 65 70 0d 65 6e 64 | 20 61 70 70 6c 79 52 61 |beep.end| applyRa|
|000060e0| 74 65 73 0d 0d 6f 6e 20 | 72 65 43 68 61 72 67 65 |tes..on |reCharge|
|000060f0| 0d 67 6c 6f 62 61 6c 20 | 78 4c 69 6e 65 0d 73 65 |.global |xLine.se|
|00006100| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 77 61 74 63 |t cursor| to watc|
|00006110| 68 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 67 65 |h.lock s|creen.ge|
|00006120| 74 20 69 74 65 6d 46 69 | 6e 64 28 6c 69 6e 65 20 |t itemFi|nd(line |
|00006130| 78 4c 69 6e 65 20 6f 66 | 20 66 6c 64 20 69 64 20 |xLine of| fld id |
|00006140| 33 26 22 20 22 2c 28 66 | 6c 64 20 69 64 20 31 30 |3&" ",(f|ld id 10|
|00006150| 20 6f 66 20 63 64 20 31 | 29 2c 31 29 0d 70 75 74 | of cd 1|),1).put|
|00006160| 20 69 74 65 6d 20 32 20 | 6f 66 20 6c 69 6e 65 20 | item 2 |of line |
|00006170| 69 74 20 6f 66 20 66 6c | 64 20 69 64 20 31 30 20 |it of fl|d id 10 |
|00006180| 6f 66 20 63 64 20 31 20 | 69 6e 74 6f 20 67 0d 69 |of cd 1 |into g.i|
|00006190| 66 20 67 20 ad 20 65 6d | 70 74 79 20 74 68 65 6e |f g . em|pty then|
|000061a0| 0d 73 65 74 20 6e 75 6d | 62 65 72 46 6f 72 6d 61 |.set num|berForma|
|000061b0| 74 20 74 6f 20 22 30 2e | 30 30 22 0d 70 75 74 20 |t to "0.|00".put |
|000061c0| 65 78 74 72 61 52 6f 75 | 6e 64 28 28 67 20 2a 20 |extraRou|nd((g * |
|000061d0| 6c 69 6e 65 20 78 4c 69 | 6e 65 20 6f 66 20 66 6c |line xLi|ne of fl|
|000061e0| 64 20 69 64 20 36 29 29 | 20 69 6e 74 6f 20 6c 69 |d id 6))| into li|
|000061f0| 6e 65 20 78 4c 69 6e 65 | 20 6f 66 20 66 6c 64 20 |ne xLine| of fld |
|00006200| 69 64 20 35 0d 70 75 74 | 20 74 68 65 20 73 68 6f |id 5.put| the sho|
|00006210| 72 74 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |rt name |of this |
|00006220| 63 64 20 69 6e 74 6f 20 | 74 43 64 0d 73 75 6d 48 |cd into |tCd.sumH|
|00006230| 6f 75 72 73 20 74 43 64 | 0d 65 6e 64 20 69 66 0d |ours tCd|.end if.|
|00006240| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 65 6e |unlock s|creen.en|
|00006250| 64 20 72 65 43 68 61 72 | 67 65 0d 0d 66 75 6e 63 |d reChar|ge..func|
|00006260| 74 69 6f 6e 20 74 72 75 | 6e 63 52 65 70 6f 72 74 |tion tru|ncReport|
|00006270| 4e 61 6d 65 20 74 68 65 | 4e 61 6d 65 0d 72 65 70 |Name the|Name.rep|
|00006280| 65 61 74 20 75 6e 74 69 | 6c 20 6c 65 6e 67 74 68 |eat unti|l length|
|00006290| 28 74 68 65 4e 61 6d 65 | 29 20 3c 20 33 32 0d 64 |(theName|) < 32.d|
|000062a0| 65 6c 65 74 65 20 6c 61 | 73 74 20 63 68 61 72 20 |elete la|st char |
|000062b0| 6f 66 20 74 68 65 4e 61 | 6d 65 0d 65 6e 64 20 72 |of theNa|me.end r|
|000062c0| 65 70 65 61 74 0d 72 65 | 74 75 72 6e 20 74 68 65 |epeat.re|turn the|
|000062d0| 4e 61 6d 65 0d 65 6e 64 | 20 74 72 75 6e 63 52 65 |Name.end| truncRe|
|000062e0| 70 6f 72 74 4e 61 6d 65 | 0d 0d 6f 6e 20 6f 70 65 |portName|..on ope|
|000062f0| 6e 43 61 72 64 0d 73 65 | 74 20 74 68 65 20 64 6f |nCard.se|t the do|
|00006300| 6e 74 53 65 61 72 63 68 | 20 6f 66 20 74 68 69 73 |ntSearch| of this|
|00006310| 20 63 61 72 64 20 74 6f | 20 74 72 75 65 0d 70 61 | card to| true.pa|
|00006320| 73 73 20 6f 70 65 6e 43 | 61 72 64 0d 65 6e 64 20 |ss openC|ard.end |
|00006330| 6f 70 65 6e 43 61 72 64 | 0d 0d 6f 6e 20 63 6c 6f |openCard|..on clo|
|00006340| 73 65 43 61 72 64 0d 73 | 65 74 20 74 68 65 20 64 |seCard.s|et the d|
|00006350| 6f 6e 74 53 65 61 72 63 | 68 20 6f 66 20 74 68 69 |ontSearc|h of thi|
|00006360| 73 20 63 61 72 64 20 74 | 6f 20 66 61 6c 73 65 0d |s card t|o false.|
|00006370| 70 61 73 73 20 63 6c 6f | 73 65 43 61 72 64 0d 65 |pass clo|seCard.e|
|00006380| 6e 64 20 63 6c 6f 73 65 | 43 61 72 64 0d 0d 6f 6e |nd close|Card..on|
|00006390| 20 73 65 74 46 69 6e 64 | 53 74 72 69 6e 67 0d 67 | setFind|String.g|
|000063a0| 6c 6f 62 61 6c 20 66 69 | 6e 64 53 74 72 69 6e 67 |lobal fi|ndString|
|000063b0| 2c 66 69 6e 64 4d 73 67 | 0d 73 68 6f 77 44 69 61 |,findMsg|.showDia|
|000063c0| 6c 6f 67 20 32 2c 35 36 | 33 39 2c 22 57 68 61 74 |log 2,56|39,"What|
|000063d0| 20 64 6f 20 79 6f 75 20 | 77 61 6e 74 20 74 6f 20 | do you |want to |
|000063e0| 66 69 6e 64 3f 22 2c 22 | 22 2c 66 69 6e 64 53 74 |find?","|",findSt|
|000063f0| 72 69 6e 67 0d 67 65 74 | 20 6c 69 6e 65 20 31 20 |ring.get| line 1 |
+--------+-------------------------+-------------------------+--------+--------+